@sorted =
  map { $_->{ORIG_DATA} }
  sort { $a->{SORT_DATA} cmp $b->{SORT_DATA} }
  map { { ORIG_DATA => $_, SORT_DATA => func($_) }
  @original;