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