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