Yes it is. Are you experiencing problems doing this? If so, please post at least a snippet of your code so we can try and help.

Depending on the size of @array, you may want to pass it by reference. You do this by using \@array. You may want to look at perldoc perlreftut for more information.

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
}
[download]

I prefer to call a "receiving" variable what it really is, so in subroutine BAR, I would do this:

sub BAR
{
   my $arrayref = shift; #This will receive the array *reference* from
+ FOO

   ### Then, I can refer to specific elements of the
   ### array using the arrayref:
   my $first_element = $arrayref->[0];

   ### or by turning the arrayref back into an array:
   my @bar_array = @{$arrayref};
   my $1st_element = $bar_array[0];

   #code here
}
[download]

Remember, FOO is passing an array *reference* to BAR, so BAR receives an array *reference* - just my preference for clarity to include "ref" in the name of the variable so it's easy to tell what the variable contains. HTH.

Maybe something like the following can help you... Untested:

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

sub foo {
  my $array = shift;
  print join(",", @{$array}), "\n";
}

sub bar {
  my $array = shift;
  return reverse @{$array};
}

my @array = ('foo', 'bar', 'qux');

my @bar = bar( \@array );
foo( \@bar );
[download]