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

##</code><code>##

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