# ...
use Sort::Packed 'sort_packed';
# ...
    sort_packed => sub {
        sort_packed I => my $s = pack 'i*', @input;
        my @list = unpack 'i*', $s;
        Compare(\@list,\@output) or die "@list" if DO_CHECK;
    },
# ...