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