Select Code to Download

function setval()
...
</FORM>
</body>

  my %ufiles;
        foreach $key (sort {$a <=> $b} $query->param()) {
...

                        $ufiles{$Number} = $Filename;
                        $File_Handle = $query->param($key);