Select Code to Download

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

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

sub scribble {
   local $_;
...
      $_; # has arg
   }
}