use strict; use warnings; my $i; my @a = (1,2,3); for $i (@a) { print $i; }