Select Code to Download

Tiny, active code segment
...    
...
    $rgb=substr($buf, 0, 6, '');  # Nibble 6 bytes       
    $rgb2c{$rgb}++;    
}

    
@rgb = keys %rgb2c;  << 1 line takes 28.648 min

my $fsize = -s [your file];   ## Find out how big the image is?
my $arrsize = $fsize / 6;     ## Size of the array and hash
...
        $counter++;
    }
}