The first issue here is what is "poo". Let's assign "poo" to a variable before we try to call a sub named "poo_sub".

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @poo = ( [1..4], ["goo", "doo", "moo"], [6..9] );

print Dumper (\@poo);
#here the Dumper module is used (it is VERY handy) to 
#show the structure of @poo.
__END__
$VAR1 = [
          [
            1,
            2,
            3,
            4
          ],
          [
            'goo',
            'doo',
            'moo'
          ],
          [
            6,
            7,
            8,
            9
          ]
        ];
[download]

The [....] are anonymous array references. A list is well, a list of things. In this case @poo is a list of anon ref's to other lists. There is some distinction between list and an array, but in general this is just Perl internals and for the purpose of understanding what a "@var" is, makes no difference.

So let's call a subroutine with the list of 3 things in @poo:

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @poo = ( [1..4], ["goo", "doo", "moo"], [6..9] );

#first we just have 3 things, just pass 'em! 3 things in the call!
poo (@poo);

sub poo
{
   my ($lref1, $lref2, $lref3) = (my @lrefs) = @_;
   #yes can do this, here we don't need individual ref's
   #just shown to demo that you can do that...
   foreach (@lrefs)
   {
      dump_lref ($_);
   }
}
        
sub dump_lref
{
   my $lref = shift;    #same as $lref = @_; here
   print "@$lref\n";
}

__END__
prints:
1 2 3 4
goo doo moo
6 7 8 9
[download]

Now let's say that we don't want to pass the 3 things in the @poo list, we just want to pass a reference to the @poo list:

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @poo = ( [1..4], ["goo", "doo", "moo"], [6..9] );

#now just pass a ref to the @poo list .....
poo (\@poo);

sub poo
{
   my $ref_of_ref_to_list = shift;
   foreach my $lref (@$ref_of_ref_to_list) #@does one level of de-ref
   {
       dump_lref($lref);
   }
}
        
sub dump_lref   ###WHOA same sub we used before!
{
   my $lref = shift;    #same as $lref = @_; here
   print "@$lref\n";
}

__END__
prints:
1 2 3 4
goo doo moo
6 7 8 9
[download]

WHOA! same printout!

I think that I should mention that unlike some other languages, @list, $list, %list, sub list{} are all different things.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.