If you only need one randomization, here's a solution I came up with:

my $word = "whatever";
print join '', sort { rand() <=> rand() } split //, $word;
[download]