Array-slice in hash doesn't work that way in modern perl; changed to two stmts.