sub thr1 { lock($x); sleep 1; lock($y); }
sub thr2 { lock($y); sleep 1; lock($x); }