use warnings; use strict; my $x; \@$x; print @$x;