diff --git a/tools/mkdep.pl b/tools/mkdep.pl
index 13c024a33..b0af60d18 100755
--- a/tools/mkdep.pl
+++ b/tools/mkdep.pl
@@ -224,8 +224,6 @@ sub insert_deps($) {
 	}
 	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 f43f8ab37..507b68d6c 100755
--- a/x86/insns.pl
+++ b/x86/insns.pl
@@ -80,7 +80,6 @@ sub genseqs($$$@) {
 
 sub startseq($$) {
     my ($codestr,$flags) = @_;
-    my $word;
     my @codes = ();
     my $c = $codestr;
     my($c0, $c1, $i);
diff --git a/x86/regs.pl b/x86/regs.pl
index 284b06921..5f7a12f6b 100755
--- a/x86/regs.pl
+++ b/x86/regs.pl
@@ -24,7 +24,6 @@ sub toint($) {
 
 sub process_line($) {
     my($line) = @_;
-    my @v;
 
     if ( $line !~ /^\s*(\S+)\s*(\S+)\s*(\S+)\s*([0-9]+)\s*(?:\&\s*(0x[0-9a-f]+|[0-9]+))?/i ) {
 	die "regs.dat:$nline: invalid input\n";