#!/usr/bin/perl

use strict;
use warnings;

my @x;


for my $i (0..3) {
   for my $j (0..3) {
       $x[$i][$j]=int rand 10;
   }
}

for my $i (0..3) {
   for my $j (0..3) {
      print $x[$i][$j]," ";
   }
   print "\n";
}

exit;