Select Code to Download

use strict;
use warnings;
...
       AllElements => sub { $rcAllElements->( \ @arr ) },
   }
   );

              Rate  OneElement AllElements
OneElement  2.59/s          --        -58%
AllElements 6.16/s        138%          --