Perl named, self-documenting subroutine arguments with default values

args.pl

# Perl named, self-documenting subroutine arguments with default values

sub foo {
    my %args = (
        # Set your defaults/doc your accepted args here
        arg1 => 'default'
        arg2 => undef,
        somelist => [qw( some stuff )],
        
        @_ # Passed-in args replace your defaults
    );
    
    # Do stuff...
}

# When calling your subroutine, just pass in the arguments as documented in the defaults.
# Any keys not specified will retain their default value:
foo( arg2 => 'bar', somelist => ['baz'] );

# Results in:
%args = (
  'arg2' => 'bar',
  'arg1' => 'default',
  'somelist' => ['baz']
);