sub f {
   my ($arg1, $arg2) = @_;
   ...
}