## Previous code to find x coordinates, y coordinates
## and website names

my @x_points;
my @y_points;
my @websites;

my $secondcount;

print q(
 <IMG SRC="figure.gif" USEMAP="#mymap">
 <MAP NAME="mymap">
);

 for ($secondcount=1; $secondcount <= $webpage_no; $secondcount++) {
     print qq( <AREA SHAPE=circle COORDS="'$x_points[$secondcount],$y_points[$secondcount],1" HREF="'$websites[$secondcount]"> );
 }

print q( </MAP> );