use List::Util qw/shuffle/; my @w = split //, 'hotel'; for ( 1 .. 10 ) { print shuffle(@w), "\n"; } [download]
In reply to Re: Randomize word by borisz in thread Randomize word by vikee