$value =~ s/\./->/g;
...
my $generator = eval "sub { $value }";
die if $@;

for (@rows) {
    ...
    print $generator->();
    ...
}