my $idx = substr $Fld57, 3, 5;
$CNT{$idx}{$Fld1}{$Fld15}++;
$COST{$idx}{$Fld1}{$Fld15} += $Fld14;


##</code><code>##

my $idx = substr $Fld57, 3, 5;
$CNT{$idx . $Fld1 . $Fld15}++;
$COST{$idx . $Fld1 . $Fld15} += $Fld14;


##</code><code>##

use strict;
use warnings;