@sorted = 
   map { $_->[0] }
  sort { $a->[1] cmp $b->[1] }
   map { [ $_, substr($_, 7, 5) ] }
         @unsorted;