$ perl -wMstrict -MData::Dump -e 'my %h; map{$_} $h{X},"$h{Y}"; dd\%h'
    Use of uninitialized value $h{"Y"} in string at -e line 1.
    { X => undef }

##</code><code>##

        $wi{OrderUniqueId} = join " ", grep { $_ ne "" } map { unquote_text($_) }
                ($ty eq "need" ? "Zamów" : "Posia"), $$it{name}, $$it{para}{Termin}, $$it{para}{Ile}, seq_num(6);

##</code><code>##

 
$wi{OrderUniqueId} = join " ", grep { $_ ne "" } map { unquote_text($_) }
                ($ty eq "need" ? "Zamów" : "Posia"), $$it{name}, $$it{para}{Termin} // "", $$it{para}{Ile} // "", seq_num(6);