Select Code to Download

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

%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");
...
%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