$a=1;
$b=1;
$c=$a+$b;

while($a <=100){
     print("$a\n");
     print("$b\n");
     print("$c\n");
     $a=$b+$c;
     $b=$a+$c;
    }