#!/usr/bin/perl
use strict;
use warnings;
use List::MoreUtils qw(uniq);
my @a = qw(alpha beta gamma);
my @b = qw(delta kappa gamma);
my @c = uniq(@a, @b);
print join(", ", @c), "\n";