for (my $i=0;$i < $#a;$i++) {#...