use strict;

my @a = qw/aaa bbc dde fff dde www/;
my $e = 'dde';
print join(',', find($e, @a)), "\n";

sub find {
  my ($target, @array) = @_;
  grep {$array[$_] eq $target} (0 .. @array - 1)
}


##</code><code>##

2,4