hirafoo

myperl=/home/user/perl5/perlbrew/perls/current/bin/perl

* * * * * $myperl /path/to/script.pl

hirafoo

use strict;
use Data::Dumper;

sub foo {
    my ( $a_ref, $key, $value ) = @_;
    my $a_ref2 = \$a_ref;
    $a_ref2 = \$$a_ref2->{$_} for split /\./, $key;
    $$a_ref2 = $value;
    return $a_ref;
}