$_='rotohotel';
my $len;
my %f=map {rand() . '|' . $len++ => $_} split //;
print join('', values %f), "\n";

##</code><code>##

%hash = map { $_ => $_ } qw(m i f e z l x v b r d o h y j q s t k n g c a p w u);
print(join('', values(%hash)), "\n");
# prints: abcdefghijklmnopqrstuvwxyz    SORTED

%hash = map { $_ => $_ } qw(m i f e z l x 2 v b r d o h y j q s t k n g c a p w u);
print(join('', values(%hash)), "\n");
# prints: abcdefghijklmnop2qrstuvwxyz    NOT SORTED

%hash = map { $_ => $_ } qw(6 3 5 0 1 2 9 8 7 4);
print(join('', values(%hash)), "\n");
# prints: 0123456789    SORTED

%hash = map { $_ => $_ } qw(6 3 5 0 34 1 2 33 9 8 7 4);
print(join(':', values(%hash)), "\n");
# prints: 0:1:2:3:4:5:6:7:8:9:33:34    SORTED

%hash = map { $_ => $_ } qw(a aaaaaaa aaaa aaa aa aaaaa aaaaaaaaaa);
print(join(':', values(%hash)), "\n");
# prints: aa:aaaaaaa:a:aaaaaaaaaa:aaaaa:aaaa:aaa    NOT SORTED