my @sorted = map  {substr $_ => 1}
             sort
             map  {/:/ ? "1$_" : "0$_"} @unsorted;