foreach my $i ( 0 .. $size-1 ) { ... }
foreach my $j ( $i+1 .. $size-1 ) { ... }