#! /usr/bin/perl -w
use strict;

my @A = (
	 [2, 5, 6, -7, 9],
	 [1, 4, -6, 7, 10],
	 [0, 2, 3, 3, 0],
	 [1, 1, 4, 2, 8],
	 );
foreach my $rowref (@A) {
    print "@{$rowref}\n";
}
