Avoiding the Schwartzian:

my @sorted = 
  map [ map int, /.{12}/g ], 
  sort map { join '', map { sprintf "%012d", $_ } @$_ } @un_sorted;
[download]