diff --git a/Utils/gen-list-implemented-cards-for-set.pl b/Utils/gen-list-implemented-cards-for-set.pl
index 476d1b0feef..2e330ae0f46 100644
--- a/Utils/gen-list-implemented-cards-for-set.pl
+++ b/Utils/gen-list-implemented-cards-for-set.pl
@@ -28,6 +28,7 @@ while(my $line = <DATA>) {
     my @data = split('\\|', $line);
     if ($data[1] eq $setName) {
         push(@setCards, \@data);
+    }
 }
 close(DATA);
 
@@ -63,6 +64,7 @@ sub toCamelCase {
 my $cardsFound = 0;
 my $cardsImplemented = 0;
 my $toPrint = '';
+
 foreach my $card (sort cardSort @setCards) {
 	my $className = toCamelCase(@{$card}[0]);
     my $currentFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . $className . ".java";
@@ -73,8 +75,9 @@ foreach my $card (sort cardSort @setCards) {
 		$toPrint .= "@{$card}[2]|@{$card}[0]"; 
                 $cardsImplemented++;
 	}
-        $cardsFound = $cardsFound + 1;
+    $cardsFound++;
 }
+
 print "Number of cards found for set " . $setName . ": " . $cardsFound . "\n";
 print "Number of implemented cards:  " . $cardsImplemented . "\n";
 
diff --git a/Utils/gen-list-unimplemented-cards-for-set.pl b/Utils/gen-list-unimplemented-cards-for-set.pl
index dbcd18b801e..41e09fd7c0c 100644
--- a/Utils/gen-list-unimplemented-cards-for-set.pl
+++ b/Utils/gen-list-unimplemented-cards-for-set.pl
@@ -73,6 +73,7 @@ foreach my $card (sort cardSort @setCards) {
 		$toPrint .= "@{$card}[2]|@{$card}[0]"; 
 	}
 }
+
 open CARD, "> " . lc($sets{$setName}) ."_unimplemented.txt";
 print CARD $toPrint;
 close CARD;