There's no need for eval evil or source filter trickery. The simplest method for this is to use perl's own include mechanism.

It's named do 'file;.

included.pl

our %b; @b{'a'..'z'} =  1 .. 26;
[download]

#! perl -slw
use strict;
use Data::Dumper;

do 'included.pl'; ## Perl's include.

our %b;
print Dumper \%b;
[download]