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

##</code><code>##

my $Ref = [map(defined $_ ? $_ : '', @{$sth->fetchrow_arrayref)];

##</code><code>##

print "<td> @{[ defined $Var ? $Var : '' ]} </td>";