Uhm.. oh dear :---)

From just a quick glance at your code:

• Arrays start at 0, not at 1 (you can do the latter, but hell will have you for it, so stay away)

• You should nearly always use foreach (@list) rather than for($i;$c;$n) - even if you really need a counter,

  foreach my $i (0 .. 100)
  [download]

  is better than the corresponding for(;;) construct. It is more efficient (yes, it is), and it removes fencepost errors - you cannot make a mistake on the condition that checks whether you have arrived on your last iteration. With the for(;;) form it is common to overlook nasty special cases that make the loop run once too much or too little.

  Having said that, it is even better to do

  foreach my $element (@array) { print $element; }
  [download]

  than

  foreach my $i (0 .. 9) { print $array[$i] }
  [download]

  If you really really need the $i for other purposes besides accessing the @array, it is often still better to do something like

  my $i = 0;
  foreach my $element (@array) { print "$i $element"; $i++ }
  [download]

  or maybe

  my $i = -1;
  foreach my $element (@array) { $i++; print "$element $i"; }
  [download]

You should really check out Mark-Jason Dominus's excellent program repair shop series on www.perl.com. There is some very helpful advice there to get you started on writing better Perl.