Anagrams

Score: 111.31 (pass)

#!perl -nl
END{push@{$r{@{$_}}},join$",sort@{$_}for%t;$_&&print
sort@{$_}for@r{2..99}}push@{$t{join$,=$/,sort/./g}},$_

Score: 118.31 (pass)

#!perl -nl
END{push@{$r{@{$_}}},join$",sort@{$_}for values%t;$_&&print sort@{$_}for@r{2..99}}push@{$t{join$,=$/,sort/./g}},$_

Score: 121.31 (pass)

#!perl -nl
END{$,=$/;push@{$r{@{$_}}},join$",sort@{$_}for values%t;$_&&print
sort@{$_}for@r{2..99}}push@{$t{join'',sort/./g}},$_

Score: 134.29 (pass)

#!perl -nl
END{$,=$/;push@{$r{@{$t{$_}}}},join' ',sort@{$t{$_}}for keys%t;map{$r{$_}&&print
sort@{$r{$_}}}2..99}push@{$t{join'',sort/./g}},$_

Score: 136.26 (pass)

#!perl -nl
END{$,=$/;map{push@{$r{@{$t{$_}}}},join$",sort@{@t{$_}}}keys%t;map{print
sort@{$r{$_}}}grep{log}keys%r}push@{$t{join'',sort/./g}},$_

Score: 144.24 (pass)

#!perl
$,=$\=$/;map{chop;push@{$t{join'',sort/./g}},$_}<>;map{push@{$r{@{$t{$_}}}},join$",sort@{@t{$_}}}keys%t;map{print
sort@{$r{$_}}}grep{1<$_}keys%r

Score: 154.24 (pass)

#!perl
$,=$\=$/;map{chop;push@{$t{$t=join'',sort/./g}},$_;$l{$t}++}<>;map{push@{$r{$l{$_}}},join' ',sort@{@t{$_}}}keys%l;map{print
sort@{$r{$_}}}grep{1<$_}keys%r