$found=0;
open(RAFFLE_DAT,"< tickets.dat") || die "tickets.dat is not found.";
  while(<RAFFLE_DAT>) {
    chop;
    if ($tickennum,$emailaddr)=split(/::/,$line))
      if ($emailaddr eq $email) { $found=1; last; }
    }
 }
close (RAFFLE_DAT) || die "Could not close tickets.dat\n";
if ($found) { &bademail(); }
else { &goodemail; }

##</code><code>##

## Assigns email address to each ticket number
$x=0;
while(<RAFFLE_DAT>) {
  chop;
  $ticket{$x++}=$_; ## or push(@ticket, $_);
}