# `my ( ... ) = ...` evaluates the RHS in list context.
my ( $increment ) = @_;

##</code><code>##

# `shift` is short for `shift( @_ )`
my $increment = shift;

##</code><code>##

print $result;

##</code><code>##

print "$result\n";

##</code><code>##

say $result;

##</code><code>##

$result += $increment;

##</code><code>##

$result = $result + $increment;