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

##</code><code>##

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