my ($index) = grep $code[$_] == $x, 0..$#code;

   -vs-

my $index = $code{$x};