If you don't care about what you throw away:

@array = grep { $_ != 5 } @array;
[download]

If you do care:

my @thrownaway;
@array = grep { if ( $_ == 5 ) { push @thrownaway, $_; 0 } else 1; } @
+array;
[download]

---

Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain