use File::Slurp 'read_file';

my @data = map { [ read_file( $_, chomp => 1 ) ] } 'file1', 'file2';
print "$data[0][$_] = $data[1][$_]\n" for 0 .. $#{$data[0]};