#!/usr/bin/perl

use strict;
use warnings;
use List::Compare;
use Data::Dump qw(dump);

my @list1 = qw(1 2 3 4 5);
my @list2 = qw(2 3 4);

my $lc = List::Compare->new(\@list1, \@list2);
print "Disabled users: ", dump($lc->get_intersection), "\n";
print "Active users: ", dump($lc->get_unique), "\n";