Select Code to Download

my %inter;
for (keys %hist1)
...
        $inter{$_} = ($val1 <= $val2) ? $val1 : $val2;
    }
}

my @common = grep exists $hist1{$_}, sort keys %hist2;