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