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