use vars qw($z);