package Net;

our @net_pnics;

sub fill_array {
    @net_pnics = qw(foo bar);
}
1;

##</code><code>##

#!/usr/bin/perl -wl
use strict;

use Net;

Net::fill_array();

print "@Net::net_pnics";    # "foo bar"