Select Code to Download

sub load_array($$)
    {
...
my @array;
&load_array(\@array, # pass in the reference to the array
            "test.txt"); # the name of our file

sub load_array {
    my $file = shift; # the first parameter is our file
...

# to run this routine...
my @array = &load_array("test.txt");