foreach my $a1 (@a1){
  $i++;
  #print $a1 . "\n"; 
}