#Returning hash ref
sub make_session {
    my ($u,$a)=@_;
    $session_hash={
        user=>$u,
        dept=>$a
    };
    return $session_hash;
}
$sid = &make_session($user,$dept);