use Set::Scalar;
  my @arr1 = (1, 22, 3, 52, 25, 3, 6, 8, 9, 10);
  my @arr2 = (25, 52, 8);
  my $set = new Set::Scalar(@arr1);
  @arra1 = $set->delete(@array)->members();