Select Code to Download

 use strict;
use warnings;
use Getopt::Long;
...
while (my($key,$value) = each(%hash)) {
print $fh3 "$key => $value\n";
}

 
my @array_1 = <$fh1>;

...
 }
}

 
xdrvo[93] => xdrvo[93] exist_1
x106_in => x106_in exist_1
...
xdrvo[1002] => xdrvo[1002] doesn't exist
xdrvo[95] => xdrvo[95] doesn't exist
x95_in => x95_in exist_1

xdrvo[93] => xdrvo[93] doesn't exist
x106_in => x106_in doesn't exist
...
xdrvo[1002] => xdrvo[1002] doesn't exist
xdrvo[95] => xdrvo[95] doesn't exist
x95_in => x95_in doesn't exist </p>