use vars qw($spud @spud);