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

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