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