Select Code to Download

while (<IN>) {
    our(@F) = split(/\s+/, $_, 0);
...
        }
    }
}

1    111    C    T    1    0    6
1    136    G    A    1    0    6
...
1    268    A    C    1    0    2
1    268    A    C    1    0    4
1    270    C    T    1    0    2

map {$x += $$_[0]; $y += $$_[1];} @{$r{$k};};