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