There's no reason to separate the error check from the error message in this code.

for my $item (@$data) {
   if (!defined($item->{email}) || $item->{email} eq '') {
      bad("No email address.");
      next;
   }

   good("Email found.");
   ...other stuff...
}
[download]