# ungetestet
my @upload_fields = map { m/^File(\d+)/ ? $1 : () } $cgi->param;
# enthält jetzt die zahlen
for my $num (@upload_fields) {
    my $file = $cgi->param("Description$num");
    my $upload_filehandle = $cgi->upload("File$num");
    ...
}