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

use File::Slurp::Tiny 'read_lines';

my $file = '/path/to/file';

for ( read_lines($file) ) { 
  # do something
}