The code contained in the original node is my test application, if you take the @data declaration, the merge sub, and the Point package, and put them in a file, all you need to add to get it to run is:

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

# @data declaration here

splice(@data,7,1);
print Dumper(merge(@data));

# merge sub here
# point class declaration here
[download]

But see the node I just posted for a working implementation.