foreach my $line (@grid)       {


      $line =~ s/^(\d+){1,2}//;
      $grid_no = $1;

      # @numbers and @data irrelevent

      $plot = plot_graph (\@numbers, \@data, $grid_no);
    
      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">);

## etc ..........