CHILD:while( (my $key, my $value) = each %passwd){
        for(@existing_users){next CHILD if /$key/;}
        $value =~ /\w*:(.*):(\d*):(\d*):(.*):(.*):(.*)/;
        my $query = "INSERT INTO passwd (username, pwd_loc, uid, gid, gecos, home_dir, shell, hostname) values('$key', '$1', '$2', '$3', '$4', '$5', '$6', '$hostname')";
        my $sth = $dbh->prepare($query);
        $sth->execute() || die("Couldn't exec sth!");
    }