Скрипт на perl и system()

#!/usr/bin/perl

open (DATA, "/path/mac-ip.txt") or die $!;

$file = "/path/mac-ip-tmp.txt";

my @listIM; # List IP and MAC

while (<DATA>) {
        chomp;
        next if /^\s*#/; # ignore comments
        my @f = split /\s/, $_;
        my %hash;
        @hash{'IP','MAC'} = @f;
        push @listIM, \%hash;

}

foreach my $seq (@listIM) {
   if (system("grep -w $seq->{IP} $file")){print " OK ";}     
}

Необходимо проверить соответствия в двух файлах. Не могу придумать как заставить проверить условие if (system("grep -w $seq->{IP} $file"))