my @points = ( [0,0], [2, 0],  [0, 2], [2, 2] );