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