Select Code to Download

for my $item (@$data) {
   if (defined($$item{email}) and $$item{email} ne '') {
...
   }
   ...other stuff...
}