use Devel::Peek;

print mkstr() . "\n";
my $str = mkstr();
print Dump($str),"\n\n";


my $arr = mkarr();
print ref($arr) . "\n";
print Dump($arr) . "\n";

__END__
__C__
... your code ...