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