@new = grep { local $_ = $_; ... } @original;