# ab perl5.6
our $GlobalVar1 = 20;

# oder der alte, immer noch gueltige weg
use vars qw($GlobalVar2 @GlobalArray);
$GlobalVar2 = 30;
@GlobalArray = (1..50);