use vars qw($spud @spud);

##</code><code>##

our $spud;
our @spud;