chomp( my @filenames = <STDIN> );
  for (@filenames) {
    ... # open, read, etc
  }