push @TEMP, $cur_amt, $past_amt;

##</code><code>##

$past_amt = '';

##</code><code>##

use Data::Dump;

...

while (<$fh>) {
        chomp;  #Removes the control character
        my @LINES = split(/\n/, $_, -1); #Split on line break creating array
        my @RECORDS = formatC2(@LINES);
        $OUTPUT[$seq_num] = [@RECORDS];    
        last;
}
close $fh;

dd \@OUTPUT;
exit(0);