print "Please enter the files to be removed: \n";
   my @removed_files =  split, <STDIN>;

   foreach my $file (@removed_files) {
      print "FILE: $file \n";
      unlink ($file);
   }
~    


##</code><code>##

Please enter the files to be removed: 
Use of uninitialized value $_ in split at ./Chapter13_Exer4a line 14.