subr s(a,b) {
    $[a] = b;
    $DID = "YES";
}