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

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

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

##</code><code>##

#!/usr/bin/perl -l
use strict;
use warnings;
use MyVars;

print $scalar;
print "@array";
print "$_ => $hash{$_}" for keys %hash;