$resultsByCode{$_}++ for @resultStatus; #### $resultsByCode{$resultStatusCodes{$_}}++ for @resultStatus; #### push @{$resultsByCode{$resultStatus[$_]}},$_+1 for 0..$#resultStatus;
## $resultsByCode{$resultStatusCodes{$_}}++ for @resultStatus; ##
## push @{$resultsByCode{$resultStatus[$_]}},$_+1 for 0..$#resultStatus;