# ...
my @ordered = map { (split /\t/)[1] }
sort {
    $a cmp $b
}
map { 
  sprintf("%05d %-20s %04d %04d",
          /^\d/?():(99999), 
          split(/[ :]/))
  ."\t$_" 
}
@unordered;
# ...