@s =
  map { (my $x = join '', reverse /(..)\s*(.*)/) =~ s/00:/12:/; $x }
  sort
  map { (my $x = sprintf "%2s%5s", reverse /(.{4,5})(..)/) =~ s/12:/00:/; $x }
  @t;