$type_name = %{$dbh->type_info(%{$item}->{TYPE})}->{TYPE_NAME}

##</code><code>##

Can't use an undefined value as a HASH reference at that line

##</code><code>##

$type_name = %{$dbh->type_info(%{$item}->{TYPE})}->{SQL_DATETIME_SUB};

##</code><code>##

$type_name = %{$dbh->type_info(%{$item}->{TYPE})}->{SQL_DATA_TYPE};