#! /usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $a = 1; my $b = 2; my $c = 3;  # It's bad to use $a and $b
my $d = 4; my $e = 5; my $f = 6;
my $g = 7; my $h = 8; my $i = 9;

my @matrix;

{
   my @row;
   push(@row, $a);
   push(@row, $b);
   push(@row, $c);
   print "@row\n";
   push(@matrix, \@row);
}

{
   my @row;
   push(@row, $d);
   push(@row, $e);
   push(@row, $f);
   print "@row\n";
   push(@matrix, \@row);
}


{
   my @row;
   push(@row, $g);
   push(@row, $h);
   push(@row, $i);
   print "@row\n";
   push(@matrix, \@row);
}

print(Dumper(\@matrix));