# When retrieving data from DBI
my $Ref = {map(defined $_ ? $_ : '', %{$sth->fetchrow_hashref})};