#!/usr/bin/perl -w
use strict;

open(FIRST,"first.txt") || die "$!";
@first = <FIRST>;
close FIRST;

open(LAST,"last.txt") || die "$!";
@last = <LAST>;
close LAST;


foreach $i (@first){
    if ($i =~ m/@last)
}else{
    print "$_";
}