$ref = \@array;

print "ref $ref\n";

ARRAY(000003e8)

$ref++;

print "ref $ref\n";

1001