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