Select Code to Download

#! perl
####################################################################
...
        return $numbers{$a} <=> $numbers{$b};
    }
}

if ($ita)

if (defined $ita && $ita ne '')

join(',', map { $_ // () } @{ $hash{$ita} }),

Use of uninitialized value in join or string at ... line ...