@sorted = map { $a->[2] cmp $b->[2]
    || $a->[2] <=> $b->[2]
    chomp; [split]
    <INPUT>}