Select Code to Download

use warnings;
use strict;

...
print "\n";
print "($number, $_)\n" for (@{$combinations{$number}}[0..$quantity-1]
+);
}

$combinations{$number}=[sort {$combinations{$number}{$b} <=> $combinat
+ions{$number}{$a}} (keys %{$combinations{$number}})];