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