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