my $transcripts_array = $transcripts{$chr}{$strand}; # might need a better name for my $transcript (@$transcripts_array) { my $start = $transcript->{start}; ... }