Select Code to Download

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

my %lookup = map { $array[$_] => $_ }  0..$#array;

my $i1 = $lookup{1};
my $i2 = $lookup{2};
my $i3 = $lookup{3};