sub foo 
{
   my ($bar, $baz) = @_;
   . . . 
}