sub {
            my $x = 1010101011;
            my $test = sub {
                return if( ( $_ & $x ) == ( ( $_ & $x)  << 1) ) ;
                };
            $test->(2);
            $test->(5);
            $test->(8);

        },
[download]

Don't forget me! :)