abc.pl
use strict;
use warning;
use xyz;

print @array;

##</code><code>##

xyz.pm
package xyz;

use strict;
use warnings;

require 5.008;
require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw(    @array
            );
my $file = "qwerty.txt";
open FILE, "< $file";
my @array = <FILE>;