Anagrams

Score: 157.30 (pass)

#!perl -ln
push@{$a{join"",sort/./g}},$_;sub a{$a{+pop}}END{$,=" ";print@{a$_}for sort{@{a$a}<=>@{a$b}||$a{$a}->[0]cmp$a{$b}->[0]}grep{(@{a$_}=sort@{a$_})>1}keys%a}

Score: 158.29 (pass)

#!perl -ln
push@{$a{join"",sort/./g}},$_;sub a{$a{+pop}}END{$,=" ";map{print@{a$_}}sort{@{a$a}<=>@{a$b}||$a{$a}->[0]cmp$a{$b}->[0]}grep{(@{a$_}=sort@{a$_})>1}keys%a}

Score: 166.27 (pass)

#!perl -ln
push@{$a{join"",sort/(.)/g}},$_;sub a{$a{$_[0]}}END{$,=" ";map{print@{a$_}}sort{@{a$a}<=>@{a$b}||$a{$a}->[0]cmp$a{$b}->[0]}grep{@{a$_}=sort@{a$_};@{a$_}>1}keys%a}