Eek! Global variable are trouble if you don't use them properly. I recommend that sub get_block return your data structures via references:

sub get_block {
    my (%blocks,@events);

    # rest of code

    return (\%blocks,\@events);
}

# and call it like so

my ($blocks_ref,$events_ref) = get_block();

print p($blocks_ref->{$day});
print p($events_ref->[$day]);
[download]

Untested, i hope this solves your problem.

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--