If the order of the list is not important, you can use Set::Scalar to do the job.

  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();
[download]

A solution for the truly lazy, hope this helps, -gjb-