#!/usr/bin/perl
use warnings;
use strict;
use List::Compare;

my @arca = qw( 625 645 );
my @arcb = qw( 450 625 720 645 );

print "arcb: @arcb\n";

my $lc = List::Compare->new( \@arca, \@arcb);

# get the items which appear only in the second list.
@arcb = $lc->get_Ronly;

print "arcb: @arcb\n";
[download]