{
        $subRef = sub {
        $var = shift;
         print "hello monks --- [$var] \n";
      };
        
}
&$subRef;