@cols[1 .. $#cols] = map(tr /[1,2]/[0,1]/, @cols)