## file one.pl:
use strict;
use warnings;
use Data::Dumper;

require "./two.pl";

## file two.pl:
print Dumper [1,2,3];

## output:
$VAR1 = [ 1, 2, 3 ];