sub order_line{  
    my @sorted_lines = sort { _by_left( $a, $b ) } @lines;
    print @sorted_lines;
}