@res = grep {eval $pat} @arr;