my $i = 0;                        
my $suchtext = "finde_mich";


# Schleife über das array bis entweder array-ende oder
# $suchtext gefunden

while ($i < scalar(@array) && $array[$i] ne $suchtext) 
    { $++ }

# ist der $suchtext gefunden ???
# wenn ja, dann wird das array "gespliced"

if ($array[$i] eq $suchtext)
    { splice(@array, $i, 1) }
else
    { print "sorry - suchtext [$suchtext] ist nicht enthalten\n" }