Help for this page
for my $a (0..@a) { for my $b (0..@b) { ... # Now sort according to the number of zeros return sort {$permutation{$a} <=> $permutation{$b}} keys %permutation;
return sort {$permutation{$a} <=> $permutation{$b} || $a cmp $b} keys %permutation;
www.com | www.net | www.org
No recent polls found