for (my $i = 1; $i <= $size; $i++) # This is OK, but it is C style, not Perl.