@sortedlines = map{(split)[1]}
               sort
               map{sprintf"%09d%09d%s%s %s",(split/\./)[0..3],$_}
               @lines;