Select Code to Download

my @sortamp = sort{ unpack(..., substr(...$a)) <=> unpack(..., substr(
+...$b) } @$amp_a;

my @sortamp = sort{ reverse($a) cmp reverse($b) } @$amp_a;