print "Explore: ". $table1->Table->Columns(2)."\n";
for my $key (sort keys %{$table1->Table->Columns(2)}) {
    print "\t$key => ".$table1->Table->Columns(2)->$key."\n";
}

print "Explore: ". $table1."\n";
for my $key (sort keys %{$table1}) {
    print "\t$key => ".$table1->$key."\n";
}