for (my $i = 0; $i < @{$data}; $i++) {
  
    my $email  = $data->[$i]{'email'} || '';
    my $name   = $data->[$i]{'name'} || '';
    
    unless ($email) {    
      bad("No email address."); 
      last;
     }else{
            good("Email found.");
            }
 }