my @array = ("joby", "andy", "ben", "tom", "bob");

print "start\n";
for my $name (@array){
	print "$name\n";
}

print "\nmiddle\n";
foreach my $name (@array){
	print "$name ";
	if($name eq 'joby'){
		shift(@array);
		print "deleted\n";
		next;
	}
	print "ok\n";
}

print "\nend\n";
for my $name (@array){
	print "$name\n";
}

##</code><code>##

C:\>test.pl<br>
start<br>
joby<br>
andy<br>
ben<br>
tom<br>
bob<br>
<br>
middle<br>
joby deleted<br>
ben ok<br>
tom ok<br>
bob ok<br>
<br>
end<br>
andy<br>
ben<br>
tom<br>
bob<br>
<br>
C:\><br>
<br>

##</code><code>##

C:\>test.pl<br>
start<br>
joby<br>
andy<br>
ben<br>
tom<br>
bob<br>
<br>
middle<br>
joby deleted<br>
andy ok<br>
ben ok<br>
tom ok<br>
bob ok<br>
<br>
end<br>
andy<br>
ben<br>
tom<br>
bob<br>
<br>
C:\><br>