Select Code to Download

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

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