Anagrams

Score: 76.46 (pass)

#!perl
map$1{join$|,sort/./g}.=$_,sort<>;map$g^s/\s\b/ /g||print,sort%1while++$g<99

Score: 77.48 (pass)

#!perl
map$1{join':',sort/./g}.=$_,sort<>;map$g^s/\s\b/ /g||print,sort%1while$g++<99

Score: 83.49 (pass)

#!perl
map$1{"@{[sort/./g]}"}.=$_,sort<>;map$g^s/\s\b/ /g||print,sort
values%1while++$g<99

Score: 84.46 (pass)

#!perl
map$h{"@{[sort/./g]}"}.=$_,sort<>;map$i^s/\s\b/ /g||print,sort values%h while++$i<99

Score: 85.48 (pass)

#!perl
map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(1..99){map$i^s/\s\b/ /g||print,sort values%h}

Score: 86.48 (pass)

#!perl
map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(1..99){map{s/\s\b/ /g-$i||print}sort values%h}

Score: 87.48 (pass)

#!perl
map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(1..99){map{s/ |
\b/ /g-$i||print}sort values%h}

Score: 91.49 (pass)

#!perl
map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){map{y/
//-$i||s/
\b/ /g&print}sort values%h}

Score: 92.47 (pass)

#!perl
map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){map{$i==y/
//&&s/
\b/ /g&print}sort values%h}

Score: 93.46 (pass)

#!perl
map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){map{$i==y/
//&&s/
\b/ /g&&print}sort values%h}

Score: 95.44 (pass)

#!perl
map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){s/
\b/ /g,print for grep$i==y/
//,sort values%h}

Score: 98.42 (pass)

#!perl
map$h{"@{[sort/./g]}"}.=$_,sort<>;for$i(2..99){s/
(?=.)/ /g,print for grep$i==y/
//,sort values%h}

Score: 104.41 (pass)

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

Score: 105.40 (pass)

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

Score: 107.45 (pass)

#!perl
map$h{"@{[sort/(.)/g]}"}.=$_,sort<>;y|
| |>s| $|
|&&print
for
sort{$a=~y|
||<=>$b=~y|
||||$a
cmp$b}values%h

Score: 108.45 (pass)

#!perl
$h{"@{[sort/(.)/g]}"}.=$_
for
sort<>;y|
| |>s| $|
|&&print
for
sort{$a=~y|
||<=>$b=~y|
||||$a
cmp$b}values%h

Score: 111.37 (pass)

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

Score: 115.39 (pass)

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

Score: 117.38 (pass)

#!perl -ln
END{map/ /&&print,sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map"@{[sort split]}",values%h}$h{join'',sort/(.)/g}.=" $_"

Score: 129.36 (pass)

#!perl -ln
END{$_="@{[sort split]}"for values%h;map/ /&&print,sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}values%h}$h{join'',sort/(.)/g}.=" $_"

Score: 145.32 (pass)

#!perl -ln
END{$h{$_}="@{[sort split' ',$h{$_}]}"for keys%h;print for grep/ /,sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}values%h}$h{join'',sort/(.)/g}.=" $_"