An alternate method, without external programs, using a method similar to the one seen in Perl's pearls:

#!/usr/bin/perl -w
use strict;
use DB_File;

my $search_word = shift
    or die "word required";

my %sorted;
tie %sorted, 'DB_File', "words_jumble.db";
unless (keys %sorted) {
    # Creates the word index.
    open WORDS, "/usr/share/dict/words"   # your favorite dictionary h
+ere
        or die "can't open words file\n";
    while (<WORDS>) {
        chomp;
        my $word = pack "C*", sort unpack "C*", lc $_;
        $sorted{$word} .= "," if $sorted{$word};
        $sorted{$word} .= $_;
    }
    close WORDS;
}

my $sorted_word = pack "C*", sort unpack "C*", lc $search_word;

die "$search_word not found\n" unless exists $sorted{$sorted_word};

print "[$_]\n" for split",", $sorted{$sorted_word};
__END__
perl jumble.pl elvis
[Elvis]
[evils]
[Levis]
[lives]
[veils]

perl jumble.pl parse
[pares]
[parse]
[pears]
[rapes]
[reaps]
[spare]
[spear]

perl jumble.pl steak
[Keats]
[skate]
[stake]
[steak]
[takes]
[download]

 _  _ _  _  
(_|| | |(_|><
 _|