print join("\t",ref(\[]),ref(\"foo"),ref(\*glob),ref(\do{my $x=*foo}));
    # REF	SCALAR	GLOB	GLOB