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

##</code><code>##

 
my @Files = $q->param("LIBRARY_files");