sub unique_merge {
   my ( %hash ) = map {$_ => 1 } @_ ;
   return keys %hash
}

my @array1 = qw(a b c d e) ;
my @array2 = qw(c d e f) ;
my @merged_array = unique_merge(@array1, @array2) ;