Anagrams

Score: 113.35 (pass)

#!perl -nl
push@{$_{join"",sort/./g}},$_;END{map{@_=sort@$_;push@{$a[@_]},"@_"if($#_)}values%_;map{map{print}sort@$_}@a}