#! perl -slw
use strict;
use Sparse;

my $sa = Sparse->new;
$sa->populateFromFH( \*DATA );
close DATA;

for my $m ( 0 .. 2 ) {
    print map $sa->getMN( $m, $_ ), 0 .. 3;
}

__DATA__
1 2 0 0
0 3 9 0
0 1 4 0