Select Code to Download

#Parameters Group 1:
my $x = 1;
...
my $x = 1;
my $y = 1;
my $z = 1;

sub main
{
...
    my  ($x,$y,$z)  = @_;
    return ($x+$y+$z);
}

$result = {
             'ParamGroup1' => 6,  # 1+2+3
             'ParamGroup2' => 12, # 3+4+5
             'ParamGroup3' => 3,  # 1+1+1
          };