use List::Util qw/shuffle/;
my @w = split //, 'hotel';
for ( 1 .. 10 ) {
    print shuffle(@w), "\n";
}
[download]