my @F = split("\t", $_);
$freq{join "\t", @F[0..1],@F[3..4]}++;