#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my @satz = qw( foo bar );
for ( my $z = $#satz; $z >= 0; $z -- ) {
    splice(@satz,$z,1) if ($satz[$z] eq 'bar');
}