Re^2: min and mindex

[kcott]

++ I like your thinking, jaredor!

So, what's the rules of this drinking game? No doubt I lost points when I failed to utter the incantantion "Schwartzian transform" while coding:

    my $min_pos = ( 
        sort { $a->[0] <=> $b->[0] } map { [$_ => ++$pos] } @array1
    )[0];
    # do useful stuff
    print ... $array2[$min_pos->[1]]

OK, I've downed a large Scotch. Your turn. :-)