use Modern::Perl;
use IO::All -strict;
use List::MoreUtils qw /each_array/;

my @first_array = io('./first.txt')->chomp->slurp;
my @second_array= io('./second.txt')->chomp->slurp;

my $ea = each_array( @first_array, @second_array );
while ( my ( $first, $second ) = $ea->() ) {
    if ( $first ne $second ) {
        say 'Arrays differ at line ', $ea->('index');
        say "First:  $first";
        say "Second: $second";
        last;
    }
}


##</code><code>##

use Modern::Perl;
use IO::All;

my $first_file  = io('./first.txt')->chomp  or die $!;
my $second_file = io('./second.txt')->chomp or die $!;

my $index = 0;
while ( my $first_line = $first_file->getline ) {
    my $second_line = $second_file->getline;
    if ( $first_line ne $second_line ) {
        say "Files differ at line $index";
        say "First:  $first_line";
        say "Second: $second_line";
        last;
    }
    $index++;
}