use strict;
use warnings;

for my $pair([253, 254], [253, 257]) {
    my $result = pack("S<", $pair->[0]) cmp pack("S<", $pair->[1]);
    print "Little: $pair->[0] cmp $pair->[1] = $result\n";
    $result = pack("S>", $pair->[0]) cmp pack("S>", $pair->[1]);
    print "Big:    $pair->[0] cmp $pair->[1] = $result\n";
    $result = pack("S", $pair->[0]) cmp pack("S", $pair->[1]);
    print "Native: $pair->[0] cmp $pair->[1] = $result\n";
}

##</code><code>##

Little: 253 cmp 254 = -1
Big:    253 cmp 254 = -1
Native: 253 cmp 254 = -1
Little: 253 cmp 257 = 1
Big:    253 cmp 257 = -1
Native: 253 cmp 257 = 1