Anagrams

Score: 114.36 (pass)

#!perl -ln
$s="@{[sort/(.)/g]}";$a{$s}=[sort@{$a{$s}},$_];END{(@$_>1)&&print"@$_"for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a)}

Score: 120.37 (pass)

#!perl -ln
$r="@{[sort/(.)/g]}";$a{$r}=[sort@{$a{$r}},$_];END{(@$_>1)&&print"@$_"for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}values%a)}

Score: 146.31 (pass)

#!perl -ln
{push@{$L{join'',sort split//}},$_}END{for(keys%L){$L{$_}=[sort@{$L{$_}}]}for(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}values%L){print"@$_"if(@$_>1)}}

Score: 151.28 (pass)

#!perl
for(<>){chomp;push@{$L{join'',sort split//}},$_}for(keys%L){$L{$_}=[sort@{$L{$_}}]}for(sort{@$a<=>@$b or$$a[0]cmp$$b[0]}values%L){print"@$_
"if(@$_>1)}