Here is a jumble example in Perl.
#!/usr/bin/perl
use strict;
use warnings;
use Algorithm::FastPermute ('permute');
use Text::Aspell;
my $arg = shift or die "takes one arg";
my @arg = split(//,$arg);
my $speller = Text::Aspell->new;
permute {
if ($speller->check(join("",@arg))) {
print "@arg\n";
}
} @arg;