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

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

print "\nmiddle\n";
shift @array and print "deleted\n" if $array[ 0 ] eq 'joby';

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