use strict;
use warnings;
require Tie::PGVecArray;

my $vec = '';
my @array;
vec($vec, $_, 4 ) = rand(16) for 0 .. 99;
print join(" ", map{ vec( $vec, $_, 4) } 0 .. 99);
print "\n";
my $obj = tie @array, 'Tie::PGVecArray', 4, \$vec;
@array = sort {$a <=> $b} @array;
print join(" ", map{ vec( $vec, $_, 4) } 0 .. 99);