my @old = ...;
my @new = ...;

my %added;
@added{@new} = ();
delete @added{@old};
my @added = keys %added;

# or

my %is_old = map { $_ => 1 } @old;
my @added = grep ! $is_old{$_}, @new;