Here's one simple approach:

  use List::Util qw/ shuffle /;
  my $word = 'hotel';
  my $random = join '', shuffle split //, $word;
  print "$random\n";
[download]

Hugo