perl -le '/(\d+)$/and$t[$1]=1for<*>;map$t[$_]||print,1..$#t'