#! /usr/bin/env perl
use strict;
use warnings;
use Tie::File;
use List::Compare;

tie my @data, 'Tie::File', "data.txt" or die $!;
tie my @analysis, 'Tie::File', "analysis.txt" or die $!;
print "$_\n" for List::Compare->new(\@data,\@analysis)->get_intersection;