Select Code to Download

use strict;
use warnings;
...
my $lc = List::Compare->new( { lists => [\@array, \@dels] } );

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

beer, water, wine