sub tst (&$) { 
   $_[1]++;   # passed variable
   $_[0]->(); # passed block
}
 
tst { print $c} $c;