open(RAFFLE_DAT,"< tickets.dat") || die "tickets.dat is not found.";
while (<RAFFLE_DAT>) {
chomp;
($tickennum,$emailaddr) = split(/::/, $_);
if ($emailaddr eq $email) { 
     &bademail();
} else {
     &goodemail();
}