if ($#files > 0){
   
     
       foreach $file(@files){ 
     print "$file\n";
     }
 }