use strict;
use warnings;
use List::Compare;

my @array=('water','wine','apple','beer','orange');
my @dels=('apple','orange');
my $lc = List::Compare->new( { lists => [\@array, \@dels] } );

print join ', ', $lc->get_unique ();