http://www.perlmonks.org?node_id=216368


in reply to First program revisited

Untested, but instead of this:

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

ponder this:

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