for( my $i=1; $i<@aas; $i++){
   #etc
}