Select Code to Download

parseNumericArgList($args{p}, 'pipeline', 1);
parseNumericArgList($args{o}, 'overlap', 1);

sub parseNumericArgList {

    my ($arg, $tag, $deflt) = @_;
...
    $ref->{$addNm} = $addVal;
    return $ref;
}

0  HASH(0x9e2930)
   'overlap' => 100
   'pipeline' => 1
...
3  HASH(0xd8ead0)
   'overlap' => 200
   'pipeline' => 3

foreach $run (@arrAllArgs) {
    foreach $ak (keys %{$run}) {
        $runArgs{$ak} = $run->{$ak};
    }
    processOne();
}