my %index_map;
@index{@array} = (0..$#array);