doit(1, 2, 3);
againSam(1, 2, 3);

sub againSam {
    andAgain();
    andAgain();
}

sub doit {
    &andAgain;
    &andAgain;
}

sub andAgain {
    my (@values) = @_;
    
    print "<@values>\n";
}

##</code><code>##

<1 2 3>
<1 2 3>
<>
<>

##</code><code>##

sub andAgain ($);

my @nums = (1, 2, 3);

andAgain(@nums);
&andAgain(@nums);

sub andAgain ($) {
    my (@values) = @_;
    
    print "<@values>\n";
}

##</code><code>##

<3>
<1 2 3>