Select Code to Download

        my @arr = (1..10);

...
        ;
        print "ok";
        no Acme::BottomsUp;

        my @arr = (1..10);

...
             grep { $_ % 2 }  # then get the odd ones
             @arr             # first, start with numbers
        ;

package Acme::BottomsUp;
use warnings;
...
        @{ $doc->find('PPI::Statement') };
};
1;