bitpattern_2_indices {
    my $bit_pattern = shift;
    grep $bit_pattern & 1<<$_, 0..31;
}

my @indices = bitpattern_2_indices(12345);
print "@indices"; # prints 0 3 4 5 12 13