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