This takes my original map idea to its natural(?) conclusion. 23 chars:

    sub array_index {
        @_{@_}=-1..@_;
        $_{$_[0]}
    }
[download]

John.
--