Select Code to Download

use strict;
use warnings;
...
       two => sub { my @arr = grep { $_ >= -10 and $_ <= 10 } @data },
   }
   );

      Rate abs two
abs 5.11/s  -- -9%
two 5.62/s 10%  --