use strict;
use warnings;

my @a = (1,2,3);

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