$x->GetValues(\%vals );
for my $item (keys %vals)
{
   my $rec;