{
    local $foo->{bar}{bar}{bar} =
substr  $foo->{bar}{bar}{bar}, 0, 20;
    Dump( $foo );
}