Select Code to Download

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

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

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

sub abc
{
    my @args = @_;
}

my $num = shift @array;

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

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