subr s(a,b) { $[a] = b } call s("W", 999)
