@new = map lc, @old; @new = map ord, @old; @new = map { sprintf('%02X', $_) } @old;