for (my $i = 0; $i < @existing_wells; $i++)        {

            if ($existing_wells[$i] == 1)   {

                    print qq(<area href="http://cgi-bin/$graph_links[0]" ALT="" shape="circle" coords="13,9,6">);

            }

            else {

                    print qq(<area href="http://cgi-bin/array.bmp" ALT="" shape="circle" coords="13,9,6">);
            }


            if ($existing_wells[$i+1] == 2)   {

                    print qq(<area href="http://cgi-bin/$graph_links[1]" ALT="" shape="circle" coords="184,9,6">);

            }

            else {

                    print qq(<area href="http://cgi-bin/array.bmp" ALT="" shape="circle" coords="184,9,6">);
            }


}