use List::MoreUtils qw{firstidx};
my $idx = firstidx { $_ eq $org[23]} @sorted;