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

##</code><code>##

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

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

our %b;
print Dumper \%b;