my $p = new Algorithm::Permute(['a'..'d']);
  while (@res = $p->next) {
    # do something with @res
  }