use warnings;
use strict;
use Inline::Files;

my @file1 = <DATA1>; # updated

my @file2 = <DATA2>; # updated

print $_ for splice @file2, $#file1 - 1, $#file2;

__DATA1__
hi
1
hw
r 
u
hi
2
hw
r
u


__DATA2__
hi
1
hw
r
u
hi
2
hw
r
u
hi
3
hw
r
u