#!/usr/bin/env perl

use strict;
use warnings;

use Inline::Files;

my @file1 = <DATA1>;
my @file2 = <DATA2>;

print for @file2[@file1 .. $#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