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