use strict;
use warnings;

my $str1='';

sub funky {
    my $count = shift;
    return if $count > 5;
    $str1 = 4*$count;
    my $indent = "funky" . " "x$count;
    print $indent,"before recurse: count=$count, str1=$str1\n";
    funky($count+1);
    print $indent,"after recurse:  count=$count, str1=$str1\n";
}

sub monkey {
    my $count = shift;
    return if $count > 5;
    my $str = 4*$count;
    my $indent = "monkey" . " "x$count;
    print $indent,"before recurse: count=$count, str=$str\n";
    monkey($count+1);
    print $indent,"after recurse:  count=$count, str=$str\n";
}

funky(0);
monkey(0);