# $it2 is where I want to put the new vertex info "@t"

# I want to put the new info in between @blocks[$i8][$it]
# and @blocks[$i8][$it + 1]

# $i8 is the block that I want to insert the new vertex
# information into

# $datapoint[$kk][1] is the new x-value
# $datapoint[$kk][2] is the new y-value


my @t = (
       11111,
       $datapoint[$kk][1],
       $datapoint[$kk][2],
       0,
       0,
       99999,
       11111,
       );

splice (@{blocks[$i8]}, ($it2 + 1), 0, \@t);