1#!./perl -w
2
3sub func_c {
4    print "Function C\n";
5    for (my $i = 0; $i < 3000000; $i++) { my $j = $i + 1; }
6}
7
8sub func_b {
9    print "Function B\n";
10    for (my $i = 0; $i < 2000000; $i++) { my $j = $i + 1 ; }
11    func_c();
12}
13
14sub func_a {
15    print "Function A\n";
16    for (my $i = 0; $i < 1000000; $i++) { my $j = $i + 1; }
17    func_b();
18}
19
20func_a();
21