in reply to Is strict too strict here?

Another solution is: 
use vars qw($somevar);

[download]
In fact I find that preferable to using our, see Why is 'our' good? for why.

In Section Seekers of Perl Wisdom