use vars qw ($country); or 
our $country;