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