$_='hotel';
%f=map {$_=>1} split //;
print join('',keys %f), "\n";

##</code><code>##

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