sub scribble {
   while ( $a = shift ){
      $a; # has arg
   }
}

##</code><code>##

sub scribble {

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