@fruit = qw(oranges apples banannas grapes);

$remove = 'apples';
@fruit = grep {$_ ne $remove} @fruit;