pdl> p $points->append(1) x $m

[
 [32 64  1]
 [35 64  1]
 [38 67  1]
 [41 67  1]
 [44 67  1]
 [47 70  1]
 [50 70  1]
 [53 70  1]
 [56 73  1]
 [59 73  1]
]