sub twiddle ( $ )
      {
         my ( $arg ) = @_;
         ...
      }