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

##</code><code>##

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