my @a = ( 100, 112,123, 333, 500 );
my @b = ( 100, 333, 500 );

my %b = map { $_ => 1 } @b;
my @missing = grep { !$b{$_} } @a;