StartQuiz( $quizfile, $userfile ); ... sub StartQuiz { my( $quizfile, $userfile ) = @_; for my $question ( Questions( $quizfile ) ){ my $answer = GetAnswer( $question ); SaveAnswer( $userfile, $question, $answer ); } }