my ($i1) = grep { $array[$_] == 1 } 0..$#array;
my ($i2) = grep { $array[$_] == 2 } 0..$#array;
my ($i3) = grep { $array[$_] == 3 } 0..$#array;