sub _synch_arrays {
	my $array_ref = shift;
	my $tag_func = GET_TOKEN;

	if ( ! grep { $array_ref->[0] eq $_ } keys %token ){
		$tag_func = GET_TAG;
		if ( '/' ne substr $array_ref->[0], 0, 1 ) {
			unshift @$array_ref, 'S';
		}
		else {
			unshift @$array_ref, 'E';
		}
	}
	return ( $array_ref, $tag_func );
}