use vars qw($three $four);

##</code><code>##

our $one;
our $two;