use warnings;
use strict;

my $file_to_process = $ARGV[0];
my $file_to_create = $ARGV[1];
my $curr_acctn = {};
my $first_time = "yes";
my @account_list = ();

open FH1, ">$file_to_create" or die "Cannot create $file_to_create";
open FH, $file_to_process or die "Cannot open $file_to_process";

while (<FH>) {
  chomp;
  &rtrim($_);
  
  my @fields = split;
  my $acctn = substr($fields[0],3,10);
  
  if($acctn != $curr_acctn) {
    if($first_time eq "yes") {
      $first_time = "no";
    }  else {
       #print FH1 "**************************\n";
       #print FH1 "Charges for account number ----> $curr_acctn:\n";
       foreach my $account (@account_list) {
          my $charge_code = substr($account,20,7);
          my $chrg_credit = substr($account,0,2);
          if ($chrg_credit == 42) {
              substr($account,0,2) = "CH ";
              substr($account,32,3) = " LAB";
          } else {
              substr($account,0,2) = "CR ";
              substr($account,32,3) = " LAB";
          }
          #print FH1 "The charge or credit is: $chrg_credit\n";
          #print FH1 "The charge code is: $charge_code\n";
          
          print FH1 "$account\n";
       }
       @account_list = ();
    }
  }
  $curr_acctn = $acctn;
  
  push (@account_list, $_);
  
}
close FH;
close FH1;
sub rtrim()
{
  $_ =~ s/\s+$//;
  return;
}