Hi Jabox,
..No that isn't what I'm looking for, and this is a different practice from the other ones...

Going through some the suggestions given to you on the previous post outlined by davido, it obvious the answer to the question you asked has been given, all you need do is just adaptation.

Something like so:

use warnings;
use strict;
use Data::Dumper;

chomp( my @data = <DATA> );
my %fruits = map { lc($_) => 1 } @data;

print "What do you want to remove?: ", join " " => @data, "\n",

  "Input: ";
chomp( my $ans = lc(<STDIN>) );

if ( $fruits{$ans} ) {
    print "Seen ", $ans, $/;
    delete $fruits{$ans};
}
else {
    print $ans, " that item doesn't exist", $/;
}
print Dumper \%fruits;

__DATA__
Apple
Orange
Grape
[download]