# print "$_\n" if length($_)>24;
# print substr($_,0,24),"\n" if length($_)>24;
# $max = length($_) if length($_)>$max;
# have to fudge things since everything >24 is *not* unique
#print " '". substr($_,0,24). "' => '$hash{$_}',\n";
# print "$_\n" if length($_)>24;
# print substr($_,0,24),"\n" if length($_)>24;
# $max = length($_) if length($_)>$max;
# have to fudge things since everything >24 is *not* unique
#print " '". substr($_,0,24). "' => '$hash{$_}',\n";