Type perldoc -f splice, and the solution will appear.

my $bad_fruit = splice(@fruit, 1, 1);
print $bad_fruit; # gives "apples"
[download]

<kbd>--
PerlMonger::Paris(http => 'paris.pm.org');</kbd>