for my $i (0..$#ARGV){
   print $fh "$ARGV[$i]\n\n $array_result[$i]\n";
   }