Anagrams

Score: 126.29 (pass)

#!perl -ln
$h{a,sort/./g}.="$_ "}{push@t,join' ',sort split' ',$h{$_}for%h;/ /&&print for sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}@t