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