I was thinking along the lines of:

#!/usr/bin/perl -w

use strict;
use Quantum::Superpositions;

my (@F, @G, @range);

@F = (1, 2, 4, 8, 16, 32..64);

my ($i, $j);
for($i=0; $i<scalar @F; $i++){
  $G[$j++] = $i if (any(@range) == any($F[$i]));
}

print join(',', @G), "\n";
[download]