sub _fill_expr_params { my ($row, $expr_names, $exprs) = @_; $row->{$expr_names->[$_]} = eval($exprs->[$_]) for ( 0.. $#$exprs ); }