Select Code to Download

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

...
   push @ary, int rand(9) for 1..$elements;
   return @ary;
}

   [2 4 4 1 ] [8 6 2 5 ] [8 3 1 5 ] [6 5 3 7 ]
   [4 6 1 0 ] [6 6 6 2 ] [6 4 7 5 ] [8 2 6 8 ]
   [6 7 0 8 ] [7 8 6 2 ] [5 1 6 6 ] [1 7 8 3 ]
   [1 8 2 7 ] [7 8 2 1 ] [6 3 8 7 ] [2 2 6 4 ]
   [7 8 7 4 ] [5 8 4 7 ] [4 2 6 0 ] [3 2 3 5 ]