print "Decimal | Octal | Hex | Character\n";
print "--------+-------+-----+----------\n";

my @hs = (0 .. 9, 'A' .. 'F');
for my $r (@hs) { 
    for my $c (@hs) { 
        my $h = hex($r . $c);
        printf("%-8.8s\| %-6.6s\| %-4.4s\| %-s\n",
                sprintf("%u",     $h),
                sprintf("%-3.3o", $h),
                sprintf("%-2.2X", $h),
                map({ s/\n/\^J/; $_ }
                    sprintf("%c", $h)));
    }   
}