use bigint; my @M = (1); for my $i (0..99) { $M[$i+$_] += $M[$i] for 1..26 } print $M[100]; [download]