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