DB<114> @a=(12,-85,36,-10,75,-38)
 => (12, -85, 36, -10, 75, -38)

  DB<115> @a = grep { $_ >= 0 } @a
 => (12, 36, 75)