Here's a basic anagram-solver to start you off:

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

my @letters = qw(S C R A B B L);

open(DICT,"/usr/dict/words") or die $!;

while (<DICT>) {
        my $orig = $_;
        chomp;
        for my $letter (@letters) {s/$letter//i;}
        print $orig unless length;
}

close DICT;
[download]

You might also want to look at this thread: "Countdown" (golf).

Unfair to use this to cheat with, obviously. Intellectual interest only.

hth,
andy.