@array = grep { $_ != 5 } @array;

##</code><code>##

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