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