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}};
[download]

gives you an array of your column names.