sub FOO
{
   my @array;
   
   #code here

   #Here is the pass to BAR

   &BAR(\@array);
}

sub BAR
{
   my(@array) = @_; #This will receive the array from FOO

   #code here
}