List of ... 

• Primary Keys

my @keys = keys %$h;
foreach my $key ( @keys ) {
    print qq{* $key};
}

• Column Names

my @columns = keys %{$h->{$keys[0]}};
foreach my $col ( @columns ) {
    print qq{* $col};
}