my @a = (1, 2, 3); foreach my $i (@a) { print "$i\n"; }