use strict;
use warnings;
use List::Compare;

my @available_things  = qw/ant bat cat dog /;
my @requested_things  = qw/bat rat/;

my $lc = List::Compare->new(\@available_things, \@requested_things);
print $lc->get_complement(), "\n";