#!/bin/perl

die "usage: remind rand-mail-list-file already-file" if ($#ARGV != 1);
$list = $ARGV[0];
$alrdy = $ARGV[1];

die "can't open already vote list" unless open(ALRDY, $alrdy);

while (<ALRDY>) {
  chop;
  $done{"$_"} = 1;
}

close(ALRDY);

die "can't open vote list" unless open(LIST, $list);

while (<LIST>) {
  chop;
  ($addr, $numb) = split(/ /);
  next if ($done{"$numb"});
  print "$_\n";
}