diff --git a/tests/tools/vcdcd.pl b/tests/tools/vcdcd.pl
index 2abfb7a21..6f497e99c 100755
--- a/tests/tools/vcdcd.pl
+++ b/tests/tools/vcdcd.pl
@@ -80,8 +80,8 @@ for my $net (sort keys %gold_signals_hash) {
 	for my $fullname (keys $gate_signals_hash{$net}) {
 		$orig_net_names{$fullname} = 1;
 	}
-	for my $_ (sort keys %orig_net_names) {
-		push @signals, $_;
+	for my $net (sort keys %orig_net_names) {
+		push @signals, $net;
 		print " $1" if /(\[([0-9]+|[0-9]+:[0-9]+)\])$/;
 	}
 	print "\n";