sub abc
{
    $_[0] = 42;
}

##</code><code>##

my $x = 17;
abc($x);

##</code><code>##

sub abc
{
    my ($x, $y, $z) = @_;
}

##</code><code>##

sub abc
{
    my @args = @_;
}

##</code><code>##

my $num = shift @array;

##</code><code>##

sub abc
{
    my $x = shift;
    my $y = shift;
    my $z = shift;
}

##</code><code>##

sub abc
{
    my ($x, $y, $z) = @_;
}