my @sorted =
  map $_->[ 0 ],
  sort { $a->[ 1 ] cmp $b->[ 1 ] }
  map [ $_, ( split '_' )[ -1 ] ],
  @unsorted;