for my $row(@table) {
    for my $k(keys %$row) {
    print "$k ",$row->{$k},"\n";
    }
}