Anagrams

Score: 106.39 (pass)

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

Score: 109.40 (pass)

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

Score: 113.40 (pass)

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

Score: 119.39 (pass)

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

Score: 162.28 (pass)

#!perl -ln 
chomp;push @{$w{join '',sort split //}},$_;END{print(join ' ', @$_)for(sort{$#{$a} <=> $#{$b}||$a->[0] cmp $b->[0]}map{$#{$_}?([sort@{$_}]):();} values %w);}