@sorted = sort { surname($a) cmp surname($b) } @lines;