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


my $file = "/Path/to/file/file_X.txt";

open(my $fh, '<', $file) or die("Can not open file $file to read!\n");

my @lines = <$fh>;
close($fh);

for (@lines) {
    chomp;
    ## process the rest here, including calls to split    
}

print "\n# of lines: " . scalar(@lines) . "\n";