Select Code to Download

my $switchnum = 15;
my $calltype = []; # Empty array ref
print "ref of switchnum = ref($switchnum) \n
       ref of calltype = ref($calltype) \n";

ref of switchnum = ref(15) 

       ref of calltype = ref(ARRAY(0x1234567))

ref(eval "\$$_") or warn "\$$_ is not a reference" for qw(switchnum ca
+lltype);