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