Select Code to Download

$found=0;
open(RAFFLE_DAT,"< tickets.dat") || die "tickets.dat is not found.";
...
close (RAFFLE_DAT) || die "Could not close tickets.dat\n";
if ($found) { &bademail(); }
else { &goodemail; }

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