for ( my $i = $size; $i--; ) { ... }
for ( my $j = $i; $j--; ) { ... }