use vars qw/@ll %those $variables/;