use strict; my @a; a[0] = \a;