It depends what package your subroutines are living in. Assuming they're living in the main:: package, you can declare package scoped variables there by using:

use vars qw($foo @bar %baz);
[download]

Take a look at arturo's tutorial on variable scoping for some more ideas./

cheers
ViceRaid