print "ref of switchnum = ref($switchnum) \n
       ref of calltype = ref($calltype) \n";