@a = split //,'xx110';
@b = split //,'001xx';
print map{$a[$_].$b[$_]}(0..$#a);