xxxxxxxxxx
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
my @fruits_list = ('Banana', 'Jackfruit','Strawberry','Cherry','Banana','Apple','Pineapple','Cherry');
my %seen = ();
my @uniqu = grep { ! $seen{$_} ++ } @fruits_list;
print Dumper(@uniqu);