Looking at Corion's google search I found this link where someone claims that

RGB(a,b,c)=a*1+b*256+c*256^2
[download]

Easy enough to translate into Perl:

sub RGB {
    my ( $red, $green, $blue ) = @_;
    return $red + ($green<<8) + ($blue<<16);
}
[download]