Select Code to Download

for ($i = 0; $i < @tablea; $i++) {

for my $i (0..$#tablea) {

for my $line(@tablea) {

    system("wc $mcpFile > crap");
    open(TABLEB,'crap');
...
    $numObs = $count - 9;
    close(TABLEB);
    unlink('crap');

my $count = 0;
open my $IN, "<", $mcpFile or die "unable to open $mcpFile $!";
$count++ while <$IN>;
close $IN;

my $wc_output = `wc -l $mcpFile`;

    $numLines = int($numObs/6);
    $remainder = $numObs - ($numLines*6);

my $remainder = $numObs % 6;

open(TABLEB, $mcpFile);

@tableb = <TABLEB>;

while (my $line = <TABLEB>) {

($PDE,$year,$month,$day,$hour,$minute,$second,$eqlat,$eqlong,$eqdepth,
+$mag) = (split /\s+/,$tableb[$j])[0,1,2,3,4,5,6,7,8,9,11];

my ($PDE,$year,$month,$day,$hour,$minute,$second,$eqlat,$eqlong,$eqdep
+th,$mag) = (split /\s+/,$tableb[$j])[0..9,11];

my ($PDE,$year,$month,$day,$hour,$minute,$second,$eqlat,$eqlong,$eqdep
+th,undef, $mag) = split /\s+/,$tableb[$j];

for ($k = 0; $k < @tableb; $k++) {

use strict;
use warnings;