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]);