How to return associative array of column names and only defined values with Perl::DBI?

Question

I have used:

my @ar = $stm->fetchrow_array
#to remove undefined
@ar = grep defined, @ar;

But that does not show the column name as reference

So I used

my $rec = $stm->fetchrow_arrayref

But it is difficult to remove undefined values and the array refernce is not the column names.

Answer 1

my $rec = $stm->fetchrow_hashref;

my @to_delete = grep { !defined($rec->{$_}) } keys %$rec;

delete @{$rec}{@to_delete};