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