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

sub getColnames{
  my ($dbh,$tablename) = @_;
  my @columns;
  my ($sth) = $dbh->column_info(undef,undef,$tablename,'%');
  while(my $row = $sth->fetchrow_hashref()){
    push(@columns,$row->{COLUMN_NAME});
  }
  return @columns;
}