use Math::BigInt; @g = (); $g[0]=[ (Math::BigInt->new(1)) x 126 ]; for $y (1..125){ $g[$y][0] = Math::BigInt->new(1); for $x (1 .. 125){ $g[$y][$x] = $g[$y - 1][$x] + $g[$y][$x - 1]; } } while(<>){ print($g[$_][$_] . "\n"); }