Help for this page
if($acctn != $curr_acctn) { ...
foreach my $account (@account_list) { ...
#!/usr/bin/perl ... } print OUT $prev_rec if ( $prev_rec );