@lines =
    map {
        $_->[1],
    } sort {
        $b->[0] <=> $a->[0]
    } map {
        [ SORTBY_VALUE_HERE, $_ ]
    } @lines;