push @{$genes{$r[0]}{$r[1]}{$r[2]}}, $r[3];