use Text::CSV;
open my $file, ">", "StaffPrinting.csv" or die "Couldn't open location file: $!";
my @names = ("Username", "Black and White", "Color", "Ricoh", "Total Page Count");
my @lines = ("========", "===============", "=====", "=====", "================");

my %data;
my $csv = Text::CSV->new () or die;
$csv->eol ("\n");

$csv->print ($file, \@names);
$csv->print ($file, \@lines);

while(<>)  {
  @a = Parse_Log($_);
  ($uname, $queue, $pages) = ((lc($a[5])), (uc($a[4])), $a[10]);
  $prn = (split(/-/, $queue))[3];
  chop($prn);     

  $s = "\$" . "$prn" . "_amt{'$uname'} += $pages"; 
  eval($s);  
  $tot_page_count{$uname} = $BW_amt{$uname} + $CL_amt{$uname} + $RC_amt{$uname};

  # If an entry does not exist yet, create a blank one
  if(not exists $data{$uname}) {
    $data{$uname} = {};
  }

  $data{$uname}{BW_amt} = $BW_amt{$uname};
  if ($data{$uname}{BW_amt} eq "" ) { $data{$uname}{BW_amt} = 0; }
  
  $data{$uname}{CL_amt} = $CL_amt{$uname};
  if ($data{$uname}{CL_amt} eq "" ) { $data{$uname}{CL_amt} = 0; }
  
  $data{$uname}{RC_amt} = $RC_amt{$uname};
  if ($data{$uname}{RC_amt} eq "" ) { $data{$uname}{RC_amt} = 0; }

  $data{$uname}{tot_page_count} = $tot_page_count{$uname};
}
foreach (sort by_total_then_username keys %data) {
  $row = "$_,$data{$_}{BW_amt},$data{$_}{CL_amt},$data{$_}{RC_amt},$data{$_}{tot_page_count}\n";
  $csv->print ($file, $row);
}

sub by_total_then_username {
  return $data{$a}{tot_page_count} <=> $data{$b}{tot_page_count} ||
         $a cmp $b;
}
close $file or die "$!";