foreach my $y ( @a ) {...}