If you didn't know the index of apples then grep would be a good answer.

@fruit = qw(oranges apples banannas grapes);

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