# @numbers contains numerical data
# @links contains the name of the file where the graph is

my @coords = (undef, [13,9,6], [29,9,7], [44,9,6], [59,10,6], [75,9,7], [91,10,5], [106,9,7], [122,9,7], [137,9,7], [152,10,6], [169,9,7], [184,9,6]);


 for my $goal ( 1..12 )    {

    for my $well ( @numbers )    {

         my $img = ( $well == $goal )
                  ? $links[$goal-1]
                   : "array.bmp";

          my $coords = join ',', ${coords[$goal]};
          
         # print "COORDS: @coords<P>";

         print qq(<area href="http://host/cgi-bin/temp/$img" 
                  ALT="" shape="circle" 
                  coords="$coords">);

    }

 }