while (( $fig, $img) = each(%images))
                        {
 
                                grep{$fig} "$html_dir/$FigFile/$DirFile";
                                        s/$fig/"<a href = $img>$fig<\/a>"/g;

                        %images = ();
                        }