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

4 lines
49 B
Perl

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