shift to while( my ( $type_id, $value ) = splice( @sans, 0, 2 ) ) {