sub dostuff {
  my %arg = @_;

  # Access named parameters like $arg{foo}
}

dostuff( foo => 'FOO', bar => 1 );