Select Code to Download

use strict;
use warnings;
...
my $obj = tie @array, 'Tie::VecArray', 4, $vec;
@array = sort {$a <=> $b} @array;
print join(" ", map{ vec( $vec, $_, 4) } 0 .. 99);

package Tie::PGVecArray;
use strict;
...
}

1;

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