#!/usr/bin/perl 

use strict;

my $item  = 1;
my $item2 = 1;
my $next;
my $celling = "10000000000000";

print "$item, $item2";

while ($next < $celling) {
$next = $item + $item2;
print ", " , "$next";
$item = $item2;
$item2 = $next;
}

print "\n";