sub f {
   my $arg1 = shift;
   my $arg2 = shift;
   ...
}