diff --git a/ponysaylinklist.pl b/ponysaylinklist.pl
index 27c507d5..4d349282 100755
--- a/ponysaylinklist.pl
+++ b/ponysaylinklist.pl
@@ -15,7 +15,6 @@ use utf8;
 use List::MoreUtils qw(natatime);
 
 my %hash;
-my $argc = @ARGV;
 
 my $it = natatime 2, @ARGV;
 while (my ($source, $target) = &$it) {