for(my $i=$m;$i<scalar @a;$i++)