RosettaCodeData/Task/Loops-Foreach/Perl/loops-foreach-1.pl

foreach my $i (@collection) {
   print "$i\n";
}