my %hash;
my @split = split //, $string;
my @positions = map { [$split[$_], $_] } 1 .. @split-1;
undef @split;

foreach (@positions){
  push @{$hash{$_->[0]}}, $_->[1];
}
undef @positions ;