@chars = (0..9, 'A'..'Z');
for (0..255) {
    $hex{$chars[int($_ / 16)].$chars[$_ % 16]} = chr($_);
}