my %hash;

$hash{array[$_]} = $_ for 0 .. $#array;