11.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 my @timers;
   6
   7 for (split /,/, <>) {
   8         $timers[$_]++;
   9 }
  10
  11 my $days = 80;
  12
  13 while ($days--) {
  14         my $zero = shift @timers;
  15         $timers[6]+=$zero;
  16         $timers[8]+=$zero;
  17 }
  18
  19 my $sum = 0;
  20 $sum += $_ for @timers;
  21
  22 say $sum;
  23
  24
  25