Select Code to Download

my @x;
$x[6]= 1;
print "\$x[1] exists? ", ( exists $x[1] ? "yes" : "no" ), $/;
...
Produces:
$x[1] exists? no
$y[1] exists? yes