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