for (my $i=0; $i<@array1; $i++)  {
          open (OUT, ">$$.out.$i") or die "can't open OUT\n";
          print OUT ">$array1[$i]>$array2[$i]\n\n\n";
          close(OUT) or die "Close error on $$.out.$i -- $!\n";
}