map may or may not be more efficient, but it's certainly shorter:

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