Select Code to Download

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