Anagrams

Score: 179.19 (pass)

#!perl -l
for(<>){$o=join'',sort split//;$s{$o}=join' ',sort map{split}$s{$o},$_}for(sort{(split/ /,$s{$a})<=>(split/ /,$s{$b})or$s{$a}cmp$s{$b}}keys%s){print$s{$_}if(split/ /,$s{$_})>1}

Score: 186.22 (pass)

#!perl -l
for(<>){chop;$o=join'',sort split//;$s{$o}=join' ',sort map{split/ /}$s{$o},$_}for(sort{&i($a)<=>&i($b)or$s{$a}cmp$s{$b}}keys%s){print$s{$_}if&i($_)>1}sub i{scalar split/ /,$s{@_[0]}}