diff --git a/tools/mkdep.pl b/tools/mkdep.pl
index 44ed0f68..b0388003 100755
--- a/tools/mkdep.pl
+++ b/tools/mkdep.pl
@@ -253,8 +253,6 @@ ($)
 	}
 	unlink($external);
     } else {
-	my $e;
-
 	foreach my $dfile ($external, sort(keys(%deps)) ) {
 	    my $ofile;
 	    my @deps;
diff --git a/x86/insns.pl b/x86/insns.pl
index 5c334c66..577eec9a 100755
--- a/x86/insns.pl
+++ b/x86/insns.pl
@@ -729,7 +729,6 @@ (@)
 # \24x \250    skip EVEX control bytes
 sub startseq($$) {
     my ($codestr, $relax) = @_;
-    my $word;
     my @codes = ();
     my $c = $codestr;
     my($c0, $c1, $i);
diff --git a/x86/regs.pl b/x86/regs.pl
index 31a3fb32..584be918 100755
--- a/x86/regs.pl
+++ b/x86/regs.pl
@@ -46,7 +46,6 @@ ($)
 
 sub process_line($) {
     my($line) = @_;
-    my @v;
 
     if ( $line !~ /^\s*(\S+)\s*(\S+)\s*(\S+)\s*([0-9]+)\s*(\S*)/i ) {
 	die "regs.dat:$nline: invalid input\n";