ref, e.g., will return 'ARRAY' for an unblessed array reference

Which is amusing:

{
  package ARRAY;
  sub new { return bless \shift; }
}
print join ' ',
  ref \@{[]},
  ref ARRAY->new ("something"),
  "\n";
__END__
ARRAY ARRAY
[download]