> my $Image  = PDL::IO::Image->new_from_file("SomeImage.jpg");
> my $Pixels = $Image->pixels_to_pdl;
> print $Pixels->info;

PDL: Byte D [1920,1920,3]

##</code><code>##

> my $Colors = zeroes(long,256,256,256);

##</code><code>##

> my $P2 = $Pixels->clump(2);  # Collapses $Pixels to [3686400,3]
> my $P3 = $P2->mv(0,1);       # Reverses  $Pixels to [3,3686400]

> $Colors->indexND($P3)++;     # Thread over $P3 2nd dimension, index into $Colors, and increment
> print $Colors->at(0,0,0);    # Print count of black pixels

1