$result = grep { $_ == 1 } ...a list...