$x->GetValues(\%vals );
         #print Dumper \%vals;
         for my $item (keys %vals)
         {
            #next if ($item eq ''); #din't work
            #next if ($item=~ /\W+/g ); # nor did this
            #next if ($item=~ /\W/g ); # no
            #next if ($item =~ /^[^\w]/); # no
            next unless ($item !~ /\W/); #no
            print "$item";
         }   
         print "---------\n";