sub intersect{
@z{@x}=@x;0+grep$z{$_},@y
#        1         2
#234567890123456789012345
}