sub A { my ($apple, $banana) = @_; # ... &B; # ... } sub B { my ($apple, $banana) = @_; print "Apple: $apple Banana: $banana"; }