#!/usr/bin/perl
use strict;
use warnings;
use bin_matrix;

my $m=bin_matrix->new(10,10,'L');

for my $x (0..9)
{
  for my $y (0..9)
  {
    my $v=int(rand(2**32));
    $m->set($x,$y,$v);
  }
}

for my $x (0..9)
{
  for my $y (0..9)
  {
    my $v=$m->get($x,$y);
    print "($x,$y) = $v\n";
  }
}