Help for this page
push @TEMP, $cur_amt, $past_amt;
$past_amt = '';
use Data::Dump; ... dd \@OUTPUT; exit(0);