use Data::Dumper;

[...]

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