#!/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];
	}
}