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

##</code><code>##

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