use vars qw[ $aa ];