Select Code to Download

use strict;
use Data::Dumper;
...
print "\n";
print "calling sub_c directly\n";
sub_c (%hash1a);

   calling sub_b
   calling sub_c from sub_b
...
   sub_c arguments:$VAR1 = {
             'key1' => 1
           };