my $key = shift;
for $col ( @{ $key->columns }) {
   if ($col->type eq PVAL) {
      my @pvals = @{ $col->values };
   }
   else {
      my @dvals = @{ $col->values };
   }
}