Select Code to Download

#!/usr/perl5/5.6.1/bin/perl
$[ = 1;                 # set array base to 1
...

      $CNT{$l_strSwitch};
}

$CNT{substr($Fld67, 3, 5), $Fld1, $Fld15}++;
$COST{substr($Fld67, 3, 5), $Fld1, $Fld15} += $Fld14;