Seems like you don't chop or chomp your email address from your database before comparing it to the email received. So, you endup comparing email@provider.com\n to email@provider.com... So, you should do :

while($line = <DATA>){
   chop $line; # remove the trailing char: \n
   ... 
 #  do your stuf

}
[download]