#!/usr/bin/perl
use warnings;
use strict;
my @array;
my @array2 = (
[ 1, 2, 3, 4 ],
[ 2, 3, 4, 5 ],
[ 3, 4, 5, 6 ],
[ 4, 5, 6, 7 ]
);
my $array3 = [
[ 1, 2, 3, 4 ],
[ 2, 3, 4, 5 ],
[ 3, 4, 5, 6 ],
[ 4, 5, 6, 7 ]
];
foreach ( 0 .. $#array ) {
print( "@{ $array[ $_ ] }\n" );
}
print( "\n" );
foreach my $row ( @array2 ) {
print( "@$row\n" );
}
print( "\n$array3->[ 2 ][ 2 ]\n" );
|