print "foo has: ", $_, $"
        for (grep {*foo{$_} qw/SCALAR ARRAY HASH CODE GLOB IO/;