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

is better written:

for (1 .. 4) {
[download]

which is not only shorter, but it is much clearer that there will be four iterations of the loop. Note that the original version of the loop is somewhat nasty because it doesn't conform with the convention in C/C++ style for loops of using a half open interval starting a 0 and using < instead of <=.