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

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

sub doit {
    &andAgain;
    &andAgain;
}

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