#Passing scalar ref
sub make_session {
    my ($u,$a,$s)=@_;
    my $session_hash={
        user=>$u,
        dept=>$a
    };
    $$s=$session_hash;
}
&make_session($user,$dept,\$sid);