Hi JockoHelios,
what about using our?.
Does the following below script clear somethings for you?

use strict;
use warnings;

{
package Foo;
use vars qw($bar);

our $foo = 20;
$bar =40;

1;
}

{
  package Bar;
  my $bar;
     $bar = 50;

  print $Foo::bar,$/;
  print $Foo::foo,$/;
  print $bar;
 1;
}
[download]

sub Date{0};
sub Time{1};

My $var=$SomeGloBal[Date];
[download]

You found an example, but you didn't copy/paste

The docs for vars also has example

Did you notice the difference? qw are quotes

use vars qw/ $foo $bar /; is the same as use vars '$foo', '$bar';

see perlop#Quote and Quote like Operators

SheBang !!! That was the problem. My variables weren't in single quotes, or declared with qw. I did notice the qw in the example from the other node, but didn't understand that I needed to qoute my variables if I declare them the other way.

I was correct on something, though. I would have spent hours trying to ferret out my error. Thanks for your help !

Dyslexics Untie !!!

Taking a page from the tutorial Basic debugging checklist use B::Deparse

$ cat foo
use vars qw( $foo $bar );

$ perl -MO=Deparse foo
use vars ('$foo', '$bar');
foo syntax OK
[download]