~ $  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]