Correct me if I'm wrong, but that code prints 100 fibonacci numbers, whereas the Perl 6 code prints all fibonacci numbers up to, but not including, 100.
def fib(max):
a, b = 0, 1
while a < max:
yield a
a, b = b, a + b
for k in fib(100):
print(k)