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