in reply to Splitting array into two with a regex
Another way:
(@ok, @no) = ((), ()); map {$_->name =~ /[0-9][0-9]$/ ? push @ok, $_ : push @no, $_} @{$rec-> +vals}; [download]