0        1         2         3
1234567890123456789012345678901
sub{grep$_[0]&($_=1<<$_),0..31}