my( $idx ) = grep { $array[ $_ ] eq 'bar' ) 0..$#array;
my @indexen = grep { $array[ $_ ] eq 'bar' } 0..$#array;