use vars qw($change $alter);

##</code><code>##

my ($change, $alter);