#!/usr/local/bin/perl

@Hex = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');

for($i=0;$i<256;$i++) {
printf("%3s=$Hex[int($i/16)]$Hex[$i%16] ",$i);
if(($i%8) == 7) { print "\n"}
}