#! /usr/bin/perl

$a = 1; $b = 2; $c = 3;
$d = 4; $e = 5; $f = 6;
$g = 7; $h = 8; $i = 9;

@row = ();
@matrix=();
push (@row, $a);
push (@row, $b);
push (@row, $c);

print "@row\n";

push(@{$matrix}, \@row);

@row = ();
push (@row, $d);
push (@row, $e);
push (@row, $f);

print "@row\n";

push(@{$matrix}, \@row);

@row = ();
push (@row, $g);
push (@row, $h);
push (@row, $i);

print "@row\n";

push(@{$matrix}, \@row);

print "$$matrix[0][0] \n";