my $val = 0|0;
do { printf "%08X\n", $val++ } while $val;