#!/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