my @r = ('a', 'b', 'c', 'd');

##</code><code>##

push @{ $genes{'a'}{'b'}{'c'} }, 'd';