@sorted = sort{ substr($a,$pos,$length) cmp substr($b,$pos,$length)} @list;