# my @rgb =  reverse unpack 'xCCC', $colornum;  #wrong
my @rgb = (
    $colornum & 255,
    $colornum >> 8 & 255,
    $colornum >> 16 & 255
};
my $hex = join '', map {sprintf '%x', $_} @rgb;
print "#${hex}";