#!/usr/bin/perl

# Playing with references.

my @foo = (1,2,3);
my @bar = (10,20,30);

my $fooPtr = \@foo;
my $barPtr = \@bar;

my @matrix = ($fooPtr, $barPtr);

print " matrix is @matrix \n";

use Data::Dumper qw( Dumper );   # imports a subroutine Dumper()
print " dumper says matrix is ", Dumper(@matrix), "\n";

my $mat = [ [ 10, 20, 30],
	    [100,200,300],
	   ];
print " dumper says mat is ", Dumper($mat), "\n";
