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