perl Tie-Array-Sorted