@array = 
    map  { $_->[0]             }  #   strip meta data
    sort { $a->[1] <=> $b->[1] }  # sort by meta data
    map  { [ $_, /([^!]+)/ ]   }  #   build meta data
    @array;