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