challenge-011/feng-chang/perl5/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/bin/env perl

use Modern::Perl;
use Data::Dumper;

my $n = shift;
my @a;

for my $i (0 .. $n - 1) { 
    my @b = (0) x $n;
    $b[$i] = 1;

    push(@a, \@b);
}

print Dumper(\@a);