my %file_genes = %$file_gene_ref;
...
  %hash1 = %{$file_genes{$m1}};
  %hash2 = %{$file_genes{$m2}};
...
    $intersection{$_} = $hash1{$_} if exists $hash2{$_};
...