sub fun1{
  my($varr1,$varr2)=@_;
}