for ( my $count = 1; $count <= 4; $count++) {

##</code><code>##

for (1 .. 4) {