vec( $vec, $_, 4) = rand(16) for 0 .. 99;
print map{ vec( $vec, $_, 4)} 0 .. 99;

 6 15  0 10  4  6 10  1 13  9 
 7  1  1  1  7 12  3  6 14  7 
 4  7  8  7  0  4 10  0 13  6  
 6  9 14  7 10  5 12  4 15 11 
13 12  7  2 13 14  4  7  0 10
 9  4 10  5  3 12 10  9 15 12 
 5  3  8  0  0  6  7  0  2 14 
14  1  3 13  4 15  8 10  2  8 
11  2  0 14 10  4  8  6 10  1 
10  7 10 13  6  5 12  6  0 15
 
$p=0; 
map{ vec( $vec, $p++, 4) = $_ } 
sort{ $a <=> $b } 
map{ vec( $vec, $_, 4) } 0 .. 99;

print map{ vec( $vec, $_, 4)} 0 .. 99;
 0  0  0  0  0  0  0  0  0  1
 1  1  1  1  1  2  2  2  2  3
 3  3  3  4  4  4  4  4  4  4
 4  5  5  5  5  6  6  6  6  6 
 6  6  6  6  7  7  7  7  7  7
 7  7  7  7  8  8  8  8  8  9
 9  9  9 10 10 10 10 10 10 10
10 10 10 10 10 11 11 12 12 12
12 12 12 13 13 13 13 13 13 14 
14 14 14 14 14 15 15 15 15 15