use strict;
use warnings;
require Tie::VecArray;

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::VecArray', 4, $vec;
@array = sort {$a <=> $b} @array;
print join(" ", map{ vec( $vec, $_, 4) } 0 .. 99);