foreach( @array ){
    my @a = sort{$a<=>$b}split/,/;
    my $d=0;
    for( @a ){ ($d,$_)=($_,$_-$d); }
    $_ = pack'w*',@a;
}
[download]