sub Handle_Media {
   my $name = shift;
   my @Files = $q->param("$name_files");  
   my @Delete = $q->param("$name_DEL");   
   more code here...