sub First { # do something.... return $info_required_not_until_sub_seven; } sub Seventh { my $input_from_first = shift; my $input_from_fourth = shift; my $input_from_sixth = shift; #etc... } #### from sub FIRST get $input_required_not_until_seventh