use strict;
use warnings;

my @array  = qw/eins zwei drei vier fuenf zwei/;
my $search = "zwei";

my @index  = grep { $array[$_] eq $search ? 1 : 0 } 0 .. $#array;

my %index;
push @{ $index{$array[$_]} }, $_ for 0 .. $#array;

print "loesung mit array:\n";
print "==================\n";
if ( @index ) {
    print "der string $search befindet sich and den stellen: ";
    print join ", ", @index;
    print "\n";
}
else {
    print "$search wurde nicht gefunden.\n";
}

print "loesung mit hash:\n";
print "=================\n";
if ( exists $index{$search} ) {
    print "der string $search befindet sich and den stellen: ";
    print join ", ", @{ $index{$search} };
    print "\n";
}
else {
    print "$search wurde nicht gefunden.\n";
}