@{ $genes{$r[0]}{$r[1]}{$r[2]} }

##</code><code>##

@{ $genes{$r[0]}->{$r[1]}->{$r[2]} }

##</code><code>##

@{ ${ ${ $genes{$r[0]} }{$r[1]} }{$r[2]} }