Select Code to Download

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

while (<IN>) {
    our(@F) = split(/\s+/, $_, 0);
...
        print OUT "$g[0]\t@g[1]\t@g[2]\t@g[3]\t", $x / scalar(@{$r{$k}
+;}), "\t$y\n";
    }
}