#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my @satz = qw( foo bar );
$satz[$z] eq 'bar' and splice(@satz,$z,1) for ( reverse 0..$#satz );