use vars qw( @a @b );
# or else for recent perl
# our (@a, @b);