#! perl -slw
use strict;

my $records;
{
    local( @ARGV, $/ ) = $ARGV[0];
    $records = <>;
}

open CIRCUITS, '<', 'circuits' or die $!;

while( <CIRCUITS> ) {
    unless( 1+ index $records, $_ ) {
        print;
    }
}

__END__

C:\test>1033014 records circuits >notfound