my @pos;
for my $index (0 .. $#str) {
    my $line = $str[$index];
    for my $offset (0 .. length($line) - 1) {
        my $char= substr($line, $offset, 1);
        push @{$pos[$index]{$char}}, $offset;
    }
}