use strict;
use warnings;

my %exonHash;
my $exonNumber = 1;
my $med = 3;

push @{ $exonHash{ $exonNumber }->[ 2 ] }, $med;