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

##</code><code>##

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