Select Code to Download

cmpthese( -2,{
 list => sub { &list },
 shiftit => sub { &shiftit },
} );

use Benchmark 'cmpthese';
cmpthese(1, { tryit => sub { $save = \@_ }});
...
                  $save = \@_;
              }
        ];

cmpthese 3, { tryit => sub { push @save, [@_]; shift } };
print Dumper \@save;
...
          ],
          []
        ];