my @points;
@points[1 .. 96] = (undef) x 96;

 foreach my $line (@grid)       {

              # lots and lots of other code here that I dont want to change.

           
          /^(\d{1,2})$/ and $points[$1] = 1;

           # this doesn't work

           for (my $i = 1; $i < @points; $i++)   {
                     $plot = plot_graph (\@temps, \@new);
                     push @graph_links, $plot . ' ';
           }

  }

my $graph_links  = join ('', @graph_links);
@graph_links = split (/\s+/, $graph_links);


print qq(<P>Please click on a spot! <P>);
print qq(<P><div align=center><img src=array.bmp border=0 usemap=#array><map name=array><P>);
print qq(<area href="http://biolarfs1/~khh103/cgi-bin/$graph_links[0]" ALT="" shape="circle" coords="13,9,6">);