use vars qw/$v1 ..... $variable $flag/;