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