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

map { tr/12/01/ } @cols;

##</code><code>##

tr/12/01/ for @cols;