Perl: Foreach loop

Perl foreach iterates through each element in the array or the list as follows: @persons = ("hari", "david", "mika"); foreach $person (@persons){ print "A Person in persons array is $person \n"; } This would print: A Person in persons array is hari A Person in persons array is david A Person in persons array is mika