If you want to create a new array from the old you may want to try;

my @good_stuff = grep (/^\d{5,}$/, @stuff);
[download]

You may also want to look at; Item 12: Use foreach, map and grep as appropriate in Effective Perl Programming.

Get Strong Together!!