my @allpixels = split( /,/ , $pixellist );
my @rgbvals;

foreach my $pixel (@allpixels) {
  push @rgbvals, ($pixel >> 16 & 255, $pixel >> 8 & 255, $pixel & 255);
}

my $newblob = pack "C*", @rgbvals;