sub f{sort{$a<=>$b}glob pop}$%+=$_ for(f"@{[f<>]}"=~s/\d+ /$'-$&.$"/ger)[0..$`-<>=~$"-$'];print$%