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