Help for this page

Select Code to Download

Select or download this

my $raSortedEvents = [ @{ $raEvents }[
   map  { unpack q{x13N}, $_ }
...
   }
   0 .. $#{ $raEvents } ]
   ];

Select or download this

my @sortOrder =
   map  { unpack q{x13N}, $_ }
...
   }
   0 .. $#{ $raEvents };
my $raSortedEvents = [ @{ $raEvents }[ @sortOrder ] ];