#! /usr/bin/perl
use strict;
use warnings;

# ...

for my $file ( @files ) {
  if ( open my $fh, '<', $file ) {
    # see perldoc perlvar
    local $/ = "\x0d";
    @lines = <$fh>;
  }
  else {
    warn "$file: $!\n";
  }
}