Select Code to Download

my $sth = $dbh->prepare("SELECT * FROM sometable");
my $colnames = $sth->{NAME};
...
    @rowhash{@$colnames} = @$rowref;
    ...
}

my %colcolumn; @colcolumn{@$colnames} = 0 .. $#$colnames;