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