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