magic

#!/usr/bin/perl

use 5.010;
use strict; use warnings;
use Data::Dumper;
use Image::Magick;
 
my $image = Image::Magick->new;
$image->Read('cpira-weirdness.png');
$image->Quantize(colors=>256);
my @histo = $image->Histogram();
my @colors;
while (my @color = splice @histo, 0, 5) {
    push @colors, [ @color ];               # r, g, b, opacity, count
}

# sort descending so that the first one is the most common color
@colors = sort { $b->[4] <=> $a->[4] } @colors;
say Dumper \@colors;