use Data::Dumper;
...
say Dumper \%transcripts;