my ($b,$g,$r) = sprintf('%06x', $color) =~ /(..)/g;

##</code><code>##

my $hexrgb = join '', reverse sprintf('%06x', $color) =~ /(..)/g;