use Data::Dumper;

[...]

exists $fastas{$gene_name}
  or die Data::Dumper->Dump([$gene_name, \%fastas], ['gene_name', 'fastas']);

$sequence = $fastas{$gene_name};