There is no translation in the OP, and I suspect it's undesirable to drop the email addresses.

ikegami,
The node to which chromatic replied, says: I'm assuming you want to do something useful with the list of cases where there is "No email address". If so, 'map' is your friend:

I interpreted what NetWallah wrote as assuming the OP might want to do something more than what was posted and offered a suggestion. I know chromatic is a smart guy, so if he had meant - you shouldn't be transforming here, you should just be filtering (map vs grep) then I understand the comment. But the code block as written, which I am sure NetWallah understood is most naturally written as map not grep (at least to me) is what chromatic appeared to be responding to (at least to me). That is why I asked for elucidation. Your response, which is a legitimate interpretation of comment - is not what I took away. Especially given it was so terse.

Cheers - L~R

I interpreted what NetWallah wrote as assuming the OP might want to do something more than what was posted

Me too. Why skip entries with no emails if you're not going to use the emails?

I could see

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

although it might be clearer to do

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

I just saw these updates. Thanks for coming to my defense!

The strange thing is - when I read chromatic's question, and re-read my code a day later, I did have to re-think for a minute about why I used map instead of grep. You were spot-on.

     Syntactic sugar causes cancer of the semicolon.        --Alan Perlis

I misread NetWallah's code in light of the OP's code.