well, if you're going to do that, you might as well stick it on one line...

my (@ok, @no) = grep { $_->name =~ m/[0-9][0-9]$/ or !push(@no, $_) }@
+{ $rec->vals };
[download]

... hmmmm, perhaps not :)

Update: Definitely not. As Roy Johnson kindly pointed out, @no will not exist in time to be pushed to in the grep.