#23456789012345678901234567890123456789012345678901234567890123456789012
map{$n=$o=$_;for$c(@_){$n+=s/$c//}$_&&push@{$w[$n]},$o}<D>;@{pop@w}