for(param()) { push (@num, $_) if $_ =~ m/^\d$+/ }
[download]

You also want to make sure, that it's \d rather than d in the match expression.