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

##</code><code>##

use Benchmark 'cmpthese';
cmpthese(1, { tryit => sub { $save = \@_ }});
use Data::Dumper;
$Data::Dumper::Deparse = 1;
print Dumper $save;
__END__
$VAR1 = [
          1,
          sub {
                  $save = \@_;
              }
        ];

##</code><code>##

cmpthese 3, { tryit => sub { push @save, [@_]; shift } };
print Dumper \@save;
$VAR1 = [
          [
            3,
            sub {
                  push @save, [@_];
                  shift @_;
              }
          ],
          [
            $VAR1->[0][1]
          ],
          []
        ];