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