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