my @line= (1); while( 1 ) { print "@line\n"; push @line, 0; for( reverse 1..$#line ) { $line[$_] += $line[$_-1]; } }