Re^3: Topics in Perl Programming: Table-Mutation Tolerant Database Fetches with DBI

[twotone]

Assuming you have already prepared and executed statement handle $sth, $sth->{NAME} will return an array ref of the column names, so

my @columns = @{$sth->{NAME}};

gives you an array of your column names.