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

##</code><code>##

    $intersection{$_} = $file_gene_ref->{$m1}{$_}
        if exists $file_gene_ref->{$m2}{$_};

##</code><code>##

  %hash1 = %{$file_gene_ref->{$m1}};
  %hash2 = %{$file_gene_ref->{$m2}};