Select Code to Download

sub Munger1 {
    my ($p1, $p2) = @_;
...
    return ($munge1, $munge2);
}
my ($a1, $a2) = Munger1($p1, $p2);

sub Munger2 {                
    my ($p1, $p2, $m1, $m2) = @_;
...
    $$m2 = $p2.' or '.$p1;
}
Munger2($p1, $p2, \$a3, \$a4);

sub Munger3 {
    my ($p1, $p2) = @_;
...
    $_[3] = $p2.' or '.$p1;
}
Munger2($p1, $p2, $a5, $a6);

sub Munger4 {    
    my ($p1, $p2) = @_;
    #...
...
    return (\$munge1, \$munge2);
}
my ($ar7, $ar8) = Munger4($p1, $p2);

#!/usr/bin/perl -w

...

my ($aref7, $aref8) = Munger4($p1, $p2);
print "Munger 4: A7=$$aref7 A8=$$aref8\n";