use 5.026;
use warnings;

say for
   map { 
      unpack q{xl>}, $_;
      }
   sort
   map {
      my $neg = $_ < 0 ? 1 : 0;
      pack q{Cl>}, $neg, $_;
      }
   -4 .. 4;