Minor style point. That loop is better written as:

foreach my $i (0..4) {
  # Whatever
}
[download]

In fact usually you are better off just looping over arrays directly. See perlsyn for more.