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