@index = sort unpacked @index;

sub unpacked {
	$a = unpack( 'V', substr( $a, 0, 4 ));
	$b = unpack( 'V', substr( $b, 0, 4 ));
	$a <=> $b;
};