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

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

print "\nmiddle\n";
print "deleted the first element because it was 'joby'\n";

@array = qw( andy ben tom bob );
print "\nend\n";
for my $name ( @array ) {
    print "$name\n";
}