#!/usr/bin/perl

my $prob = 1;
for ( $i = 1; $i <= 50; ++$i ) {
    $prob *= (366-$i) / 365;
    printf "  %3d - %5.3f", $i, $prob;
    print "\n" if $i % 5 == 0;
}