Select Code to Download

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

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