Anagrams

Score: 92.37 (pass)

#!perl
map{$j{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{(a..t)[s!$/(?=.)! !g].$_}%j

Score: 92.38 (pass)

#!perl
map{$h{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{(a..z)[s!$/(?=.)! !g].$_}%h

Score: 94.40 (pass)

#!perl -l
map{$h{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{chop;(a..z)[y/\n/ /].$_}%h

Score: 97.41 (fail)

#!perl
map{$h{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{chop;(a..z)[y/\n/ /].$_}values%h

Score: 100.41 (pass)

#!perl -l
map{$h{"@{[sort/./g]}"}.=$_}sort<>;map{/^[^a]/&&print$'}sort map{chop;(a..z)[y/\n/ /].$_}values%h

Score: 105.37 (fail)

#!perl
map{chop;push@{$h{"@{[sort/./g]}"}},$_}sort<>;map{/^a/||s/.//&&print}sort map{(a..z)[$#$_]."@$_"}values%h

Score: 106.38 (pass)

#!perl -l
map{chop;push@{$h{"@{[sort/./g]}"}},$_}sort<>;map{/^[^a]/&&print$'}sort map{(a..z)[$#$_]."@$_"}values%h

Score: 108.37 (pass)

#!perl -l
map{chop;push@{$h{"@{[sort/./g]}"}},$_}sort<>;map{/^a/||s/.//&&print}sort map{(a..z)[$#$_]."@$_"}values%h

Score: 109.37 (pass)

#!perl
map{chop;push@{$h{"@{[sort/./g]}"}},$_}sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||@$a[0]cmp@$b[0]}values%h

Score: 110.36 (pass)

#!perl
chop&&push@{$h{"@{[sort/./g]}"}},$_ for sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||@$a[0]cmp@$b[0]}values%h

Score: 119.35 (pass)

#!perl
map{chop;push@{$h{join'',sort/./g}},$_}<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||@$a[0]cmp@$b[0]}map{[sort@$_]}values%h