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