Select Code to Download

$value =~ s/\./->/g;
...
...
    print $generator->();
    ...
}

# untested, just pseudo code

...
     ...
     last
}

# again, untested, just for demonstration

...
   print $generator->();
   ...
}

my $generator = eval "sub { my (\$order, \$order_line) = @_; $code }";
...
$generator->($row->{order}, $row->{order_line});