sub tprint { my $t = time; print "$t: ", shift, "\n"; } sub getResultsAPI { my ($name, $doze_time) = @_; tprint "API_$name: dozing for ${doze_time}s"; sleep $doze_time; tprint "API_$name: done"; } sub getResultsAPI_1 { getResultsAPI(1, 12) } sub getResultsAPI_2 { getResultsAPI(2, 22) } sub getResultsAPI_3 { getResultsAPI(3, 16) } sub getResultsAPI_4 { getResultsAPI(4, 5) } sub getResultsAPI_5 { getResultsAPI(5, 11) } sub getResultsAPI_6 { getResultsAPI(6, 7) }