remove unnecessary assignment
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 437c5cb..ab93c7c 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -530,7 +530,6 @@
 
 sub new_link_name_info(){
     my $name = "l2h-" . ++$globals{'max_id'};
-    my $aname = "<a id='$name' xml:id='$name'>";
     my $ahref = gen_link($CURRENT_FILE, $name);
     return ($name, $ahref);
 }