my @data;

foo(\@data);
bar(\@data);
 
sub foo {
  my $data_aref = @_;
  # read from a file and
  # save temporary data in the data
  # array
}

sub bar {
  my $data_aref = @_;

  # process data array...
}

##</code><code>##

# Under Construction