my $key = $columns[0].", ".$columns[1];   # supposed columns[1] has already been reduced to its first 3 letters
 $myHash { $key } += $columns[2];