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