Select Code to Download

use strict;
use warnings;
...
    my ( $a, $b ) = @_;
    return List::Compare->new( $a, $b )->get_union;
}

@a = a b c
@b = b c d
...
@a AND @b = bc

@a OR @b = abcd