foreach my $one (@one) {
	$one =~ m/\(.\)(.+)\(.\)/;
	foreach my $two (@two) {
		if (($1) and ($two eq $1)) {
			push @result, $one;
			last;
		}
	}
}