my @hex_nums = map { sprintf '%02X', $_ } 0..255;