use vars qw($three $four);