# rename %hash to %str2pos, as that seems an accurate name
my %str2pos = ( anee => '1', jane => '0', neen => '2', );
my $result;
for my $string(keys %str2pos) {
    substr($result,$str2pos{$string},length($string),$string);
}
print "$result\n";