Ah, just as I had guessed, @file is being read in from an external file. So, the file probably has the wrong line endings for the system. Either convert the file to have the appropriate line endings, or change your code so that it can deal with any line endings.

Here's a very simple, but probably not optimal, example of the latter:

{
  local $/;
  my @files = split /\r\n?|\n\r?/, <FTS>;
}
[download]