my $pixellist = '9347248,9347248,9413041';

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

my $newblob = reverse pack "(VX)*", reverse @allpixels;