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