my @y;
print "Array is empty: ", 
   (0 == scalar @y ? "yes" : "no"), "\n";
print "first element: ", 
   ( $y[0] ? "defined" : "undefined"), "\n";
print "Array is empty: ", 
   (0 == scalar @y ? "yes" : "no"), "\n";
print "Type of first element: ",  
   ref \$y[0], "\n";
print "Array is empty: ",
   (0 == scalar @y ? "yes" : "no"), "\n";