To make the output a little more readable:

print "3",  join( ", ", keys(%{$termservers{$key}})), "\n"; #doesn't w
+ork#
[download]

Otherwise you just get the keys printed together and it's hard to tell where one stops and the next begins.