rperl -e 'use integer;$i=((2**17)**3);$m=2**53;print "$i\n$m\n";'
2251799813685248
9007199254740992

##</code><code>##

perl -e '$n = (3*(10**2)) + (0*(10**1)) + (9*(10**0)); print "$n\n";'

##</code><code>##

perl -e '$B = 10; $n = (3*($B**2)) + (0*($B**1)) + (9*($B**0)); print "$n\n";'

##</code><code>##

perl -e '$B = 2**16; $n = ($R*($B**2)) + ($G*($B**1)) + ($B*($B**0)); print "$n\n";'

##</code><code>##

$hash{$key}++;             ## $key is 48 bit RGB as a single integer
                           ## The value $hash{$key} is sum of the times found