Select Code to Download

my @emails = map { $_->{email} eq '' ? () : $_->{email} } @$data;

my @emails = grep $_, map $_->{email}, @$data;