my( @ok, @no ); push @{ $_->name =~ /\d{2}$/ ? \@ok : \@no }, $_ for @{ $rec->vals }