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

##</code><code>##

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

##</code><code>##

for my $line(@tablea) {

##</code><code>##

    system("wc $mcpFile > crap");
    open(TABLEB,'crap');
    @tableb = <TABLEB>;
    chomp ($tableb[0]);
    ($count) = (split /\s+/,$tableb[0])[1];
    $numObs = $count - 9;
    close(TABLEB);
    unlink('crap');

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my $remainder = $numObs % 6;

##</code><code>##

open(TABLEB, $mcpFile);

##</code><code>##

@tableb = <TABLEB>;

##</code><code>##

while (my $line = <TABLEB>) {

##</code><code>##

($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];

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

use strict;
use warnings;