sub scribble {

   while ( shift ){
      $_ ;  # not here!  
   }
}