[05:25][nick:~/monks]$ perl 1134864.pl
calling sub_b
calling sub_c from sub_b
sub_c arguments: $VAR1 = {
          'key1' => 1
        };

calling sub_c directly
sub_c arguments: $VAR1 = {
          'key1' => 1
        };