sub Handle_Media {
   my $name = shift;
   my @Files = $q->param($name."_files");  
   my @Delete = $q->param($name."_DEL");   
   ## more
}