{ 
  push @stack,$scalar;
  $scalar=undef;
 
  ... some code...
 
  $scalar=shift @stack;
}