0        1         2         3
12345678901234567890123456789012
sub{grep$_,map$_[0]&1<<$_,0..31}