%main::hash = (one => 1, two => 2, three => 3);
$main::session = \%main::hash;

my $session = $main::session;
print $session->{two};