#!/usr/bin/perl -w

use strict;
use List::Compare;

my @one = qw( 384 425 );
my @two = qw( 384 425 466 507 548);
my @three = qw( 466 507 );
my @four = qw( 666 999 );

my $lc = List::Compare->new( \@one, \@two );
my @intersection = $lc->get_intersection;

print "Out 1: @intersection\n";

$lc->new( \@three, \@two );
@intersection = $lc->get_intersection;

print "Out 2: @intersection\n";

$lc->new( \@four, \@two );
@intersection = $lc->get_intersection;

print "Out 3: @intersection\n";

##</code><code>##

Out 1: 384 425
Out 2: 384 425
Out 3: 384 425

##</code><code>##

Out 1: 384 425
Out 2: 466 507
Out 3: