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