my @hex = map { sprintf '%X', $_ } $min .. $max;