my @p = grep {
    defined $_ && $_ ne ''
} @arr;