my $i; # after my @a;  sorry :-(