while (<LIST1>) {
    ($V1, $V2) = split /\t/;
    $all_V1{$V1}++;
    $all_V2{$V2}++;
}