Select Code to Download

sub process {
    my $number = shift;
...
      shared_clone( { $number => factorial($number) } );
    $semaphore->up;
}

for my $key ( sort { $a <=> $b } keys %result ) {
    my $ref = $result{$key};
...
        say qq($k => $v);
    }
}