use Quantum::Superpositions;

my @array1 = qw( 1 83 90 120 140 300 );
my @array2 = qw( 83 140 );

my @filtered = grep all(@array2) != $_, @array1;