If you are using perl 5.6, you can use our to declare a variable as global. It is the equivilant of calling use vars qw().

This is more sugar than functionality, I believe. Using this will make your code more readable.

cheers.