parsing facebook birthday files

parse.pl

my $fh = open('birthdays.ics', :r);

my @index;
my $items = 0;

for $fh.lines -> $line {
  if $line ~~ m/^DTSTART\:(.+)/ {
    @index[$items] = [];
    push @index[$items], $0;
  };
  if $line ~~ m/^SUMMARY\:(.+)/ {
    push @index[$items], $0;
    print ".";
    $items++;
  };
};
print "\ndone\n";

my %birthdays;
for @index -> $list { %birthdays{$list[0]} += 1; };

my $max = @index[0][0];
my $unique = 0;

for %birthdays.keys -> $date {
  if %birthdays{$date} > %birthdays{$max} { $max = $date; };
  say "$date: %birthdays{$date} occurences ";
  if %birthdays{$date} == 1 {
    $unique++;
  };
};

say "{ $items - 1 } entries";
say "there were { %birthdays.elems } days that had a birthday";
say "$unique people have unique birthdays";

say "the most common birthday was $max with %birthdays{$max} birthdays!";
say "they are the birthdays of:";

for @index -> $dates { if $dates[0] == $max { say $dates[1]; }; };