#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file_a = 'a.txt';
my $file_b = 'b.txt';

tie my @b_lines, 'Tie::File', $file_b or die $!;
open my $fh, '<', $file_a or die $!;

while( my $zeile = <$fh> ){
    if( grep{ $_ eq $zeile }@b_lines ){
        print "Zeile [$zeile] sowohl in $file_a als auch in $file_b vorhanden\n";
    }
    else{
        print "Zeile [$zeile] nur in $file_a vorhanden\n";
    }
}
close $fh;
untie @b_lines;