#!/usr/bin/perl

   use strict;

   my $TRIALS = 1024;
   my $total;

   for (1..$TRIALS) { $total += trial(); }

   $total /= $TRIALS;
   print "$total\n";

sub trial {

   my (%days, $i);

   while (++$i) {
      if ($days{int(rand(365))}++) { return $i; }
   }
}