Select Code to Download

    push @{$r{join ' ' x 8, @F[0..3]};}, [@F[4, 6]];
    {
...
            print OUT "$g[0]\t@g[1]\t@g[2]\t@g[3]\t", $x / scalar(@{$r
+{$k};}), "\t$y\n";
        }
    }

   $k;         # == "1  136  G   A" with more spaces
   $r{$k};     # == [ [1,6], [1,9] ]  == referenece to an array of arr
+ay-refs
...
   $_;         # = [1,9]
   $$_[0];     # 1
   $$_[1];     # 9