Assuming that "index", in this case, is just a number, not related to the index of items in the array, then you could do something like this:

    my @things;
    push @things, [ $string, $index ]; # as many times as necessary
    for ( sort { $a->[1] <=> $b->[1] } @things ) {
        # do whatever with it, e.g. print:
        print "Index: $_->[1]    String: $_->[0]\n";
    }
[download]

And then to clear it out:     @things = ();

jdporter
...porque es dificil estar guapo y blanco.