push @{ $hash{array[$_]} } ,  $_ for 0 .. $#array;