DB<20> print join " ", reverse split /(..)/ , sprintf "%06x\n", 2*10**$_ for 0..5

02  00  00
14  00  00
c8  00  00
d0  07  00
20  4e  00
40  0d  03
 DB<21>

##</code><code>##

  DB<29> say 1+int (log (2*10**$_)/log 256)  for 0..5
1
1
1
2
2
3