my $foo = bless {}, 'ARRAY'; my $bar = []; print "ooops\n" if ref($foo) eq ref($bar); [download]
In reply to Re^2: stringified references by adrianh in thread stringified references by rir