Something

use Memoize;
use BigInt;
memoize('fib');
sub fib {
my $n = shift;
return $n if $n < 2;
fib($n-1) + fib($n-2);
}

for(my $x=1;$x<1000000;$x++)
{
fib($x);
	{
		if($x % (2**32) == 0)
			{
				print $x;
			}
	}
}