See the state keyword. Alternatively, just use a global variable outside of your subroutine. Also see perlfaq7 for "How Do I Create A Static Variable?

Note that one can only create scalar static variables. So the OP should use an arrayref instead of an array if the OP decides to use a static variable.

No, state works just fine with arrays and hashes.

#!/ActivePerl/bin/perl

use strict;
use warnings;
use feature (qw/state say/);

store_and_print_hash('a');
store_and_print_hash('b');
store_and_print_hash('c');

store_and_print_array('x');
store_and_print_array('y');
store_and_print_array('z');

sub store_and_print_hash {
   state %hash;
   my $key = shift;
   $hash{$key} = 1;
   say "Hash keys: (" , join(', ' , sort keys %hash), ")";
}

sub store_and_print_array {
   state @array;
   my $value = shift;
   push @array, $value;
   say "Array values: (" , join(', ' , @array), ")";
}
[download]

results in

Hash keys: (a)
Hash keys: (a, b)
Hash keys: (a, b, c)
Array values: (x)
Array values: (x, y)
Array values: (x, y, z)
[download]

-- Am I the only one who still cares about RT #67694?

the data in the array variable is lost. I have tried using our @net_pnics

You haven't shown any code, but I suspect you're checking in the wrong namespace (i.e. not Net::).

In other words, either use fully-qualified names

package Net;

our @net_pnics;

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

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

use Net;

Net::fill_array();

print "@Net::net_pnics";    # "foo bar"
[download]

or use Exporter to export the variable into the namespace of the script Main_Input.pl.