Select Code to Download

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

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

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