# the "variable library", e.g. MyVars.pm

use vars qw($scalar @array %hash);

$scalar = "Foo";
@array = qw(Foo Bar);
%hash = (Foo => "Bar");
1;