use feature 'say';
for(1..<>){
	<>;
	@s=glob<>;
	%h=();
	$z=Yes;
	for$g(glob<>){
		$s=shift@s;
		if($h{$g}){
			$z=No if $g!=$s||$g!=$h{$g};
		}
		$h{$g}=$s;
	}
	$p=0;
	for(sort{$a-$b}keys%h){
		$z=No if $p>$h{$_};
		$p=$h{$_};
	}
	say$z;
}