Select Code to Download

sub add {
    my( $a, $b, $bit, $cary, $sum ) = ( @{$_[0]}, 1, 0, 0 );
...
my $acc = add( [@args] );
$acc = add($acc)   while  ref $acc;
print "add[@args] = $acc\n";