my $output = main_process( @{$_}{ qw/ file file_neg submt_len submt_d e W_size lp support_threshold min_inst_lower min_inst_upper polyTA_lim poly_lim / }); $result{ 'ParamGroup' . $count++ } = $output;