Select Code to Download

foreach my $key ( keys %file1 )
{
   $diff = $file1{$key} - $file2{$key};
}

open( my $fh1, "<", $file1 ) or die "Cannot open [$file1], [$!]";