Select Code to Download

#! usr/bin/perl

use strict;
...
0  -1  -3   2   0
0   0   1   0   0
0   4   2   0   1

~ $  perl Desktop/test.pl
@Ax  = [2 3 3 -1 4 4 -3 1 2 2 6 1]
@Ai = [0 1 0 2 4 1 2 3 4 2 1 4]
@Ap = [0 2 5 9 10 12]