#!/usr/bin/perl

use strict;
use warnings;

my @array = (1,0,"foo",0,"foo");

foreach my $i (0..$#array) {
      
      print "\"foo\" -String gefunden bei: Position $i\n" if ($array[$i] eq 'foo');
               
}