#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump qw(pp);

my @A = qw( 1 2 3 4 5 );
my @B = qw(     3 4 5 6 7 );

my %unionAB;
@unionAB{@A,@B} = undef;

my %interAB;
{
    my (%tmpA);
    @tmpA{@A} = @A;
    @interAB{(grep {defined} delete @tmpA{@B})} = undef;
}

my %sdiffAB;
{
    my (%tmpA, %tmpB);
    @tmpA{@A} = @A;
    @tmpB{@B} = @B;
    delete @tmpA{@B};
    delete @tmpB{@A};
    @sdiffAB{keys %tmpA, keys %tmpB} = undef;
}

# View results
print 'unionAB: ', pp(\%unionAB), "\n";
print 'interAB: ', pp(\%interAB), "\n";
print 'sdiffAB: ', pp(\%sdiffAB), "\n";