kamipo

use strict;
use Data::Dumper;

sub foo {
    my ( $a_ref, $key, $value ) = @_;
    eval join('->', '$a_ref', map "{$_}", split /\./, $key) . ' = $value';
    return $a_ref;
}

my $ref = {

kamipo

length q q eq and print chr oct ord qw q dump q and print chr oct hex ord uc q my alarm and print chr oct hex ord uc q my m and print chr ord qw q gt q and print chr ord qw q fcntl q and print chr ord qw q x q and print chr oct hex ord uc q my m and print chr oct hex ord uc qw q y q