use strict;
use warnings;

#our %heap_hash;
my %heap_hash;

$heap_hash{status} = "good";

&load;

&po;

sub load {
	$heap_hash{some_var} = "something";
}

sub po {
	print "$heap_hash{status}\t$heap_hash{some_var}\n";
}