( my ($ar) = () ) // die "Undefined array in scalar context";