关于线程的两个问题，望赐教

lbbds

有两个问题，1，在CPAN中和perl 5.8Documentation中都只涉及到了变量的lock机制，并没有介绍lock （&xxx）或sub xxx：locked｛｝；是不是在5.8中已经取消了对一个函数或子程序的锁机制？如果无法对一个子程序上锁，我想先对变量上锁，然后将子程序返回值赋给这个变量，这样可否达到锁住这个字程序的目的？
如，
  our $i :shared;

   线程中：
  my $temp;
  ｛lock ($i);
    $i = func();
    $temp = $i;｝

这样是不是可以把调用func（）这个过程锁住?保证func（）操作的原子性？
2，thread—>new（\&xxx,$aaa）和thread—>new（sub{xxx($aaa)}）有什么区别？\&xxx应该是得到子程序xxx的内存地址吧？为什么我用第二种可以跑通，但是第一种不行呢？

小白一个，还请高手耐心赐教