work($a,$b,$c,$d,$e,$f);

sub work{

    my ($a,$b,$c,$d,$e,$f) = @_;
    more_work($b,$c);
    print "$a\n";
}

more_work{

    my ($b,$c) = @_;
    even_more_work($c);
    print "$b\n";

}

##</code><code>##

more_work( $b, $c );
work( $a )

##</code><code>##

work( $a, more_work( $b, $c ) );