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