Select Code to Download

for my $i (0..@array1-1) {
    open (OUT,">$$.out$i", or die "Ooops...!";
    print OUT ">$array1[$i]>$array2[$i]\n\n\n";
    close OUT;
}