my @dates_copy = @dates;
while (<NOTES>) {
    $/ = "\n\n";
    my $date = shift @dates_copy;
    push @notes, ($date, $_);
    %notes = @notes;
}

##</code><code>##

local $/ = "\n\n";
@notes{ @dates } = map { chomp; $_ } <NOTES>;