Select Code to Download

CHILD:while( (my $key, my $value) = each %passwd){
        for(@existing_users){next CHILD if /$key/;}
...
        my $sth = $dbh->prepare($query);
        $sth->execute() || die("Couldn't exec sth!");
    }