t/run.perl | 7 ++-----

diff --git a/t/run.perl b/t/run.perl
index e3e3e07512fbd852edd1e0233399e2955c526a6a..0ba5e0442d9147673884557ebe1010a0d08932ef 100755
--- a/t/run.perl
+++ b/t/run.perl
@@ -80,11 +80,8 @@ 			local $/;
 			my @sk = (<$fh> =~ m/^ok [0-9]+ (# skip [^\n]+)/mgs);
 			if (@sk) {
 				my %nr;
-				$nr{$_}++ for @sk;
-				for (@sk) {
-					my $n = delete $nr{$_} or next;
-					print OLDERR "$pfx$_ ($n)\n";
-				}
+				my @err = grep { !$nr{$_}++ } @sk;
+				print OLDERR "$pfx$_ ($nr{$_})\n" for @err;
 				$skip = ' # total skipped: '.scalar(@sk);
 			}
 		} else {