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

##</code><code>##

1    12301    A    B
1    12310    A    B
2    4501    A    B
2    15410    A    B