#        1         2         3         4         5         6         7
#23456789012345678901234567890123456789012345678901234567890123456789012
for(<D>){$n=$o=$_;for$c(@_){$n+=s/$c//};/^$/&&push@{$w[$n]},$o}@{$w[-1]}