use Data::Dump "pp";
...
say pp \%transcripts; # debug the content of %transcripts