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