if (/>(.*)/)
{
	if (defined $list{$1})
	{
		print $_. "\n" . $hash1{$list{$1}} . "\n"; $x = 1
	}
	else
	{
		$x = 0
	}
}  #e
print $_ . "\n" if $x == 0;  #e

##</code><code>##

	if (defined $hash1{$list{$1}})