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