Select Code to Download

use strict;
use warnings;
...
        make_sets2( $weight -1, "$temp_result$item, ", ($item, @_));
    }
}

$ time perl  multisets.pl
count = 1
...
real    0m0.048s
user    0m0.015s
sys     0m0.000s

$ time perl  multisets.pl > /dev/null

real    0m0.043s
user    0m0.000s
sys     0m0.031s