LOOP:
for (0 .. $#array) {
    if ($array[$_] eq $searched) {
        print "$searched found at $_ \n";
        last LOOP;
    }
}

##</code><code>##

my %hash;

$hash{array[$_]} = $_ for 0 .. $#array;


##</code><code>##

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