DOG: for my $dog (@_) {
    my $remaining = $letters;
    $remaining =~ s/$_//i or next DOG for split //, $dog;
    push @remain, $remaining;
    push @dogs, $dog;
  }
  while( my $dog = shift @dogs ) {
    dogtree( "$tree $dog", shift @remain, @dogs );
  }