__END__
[download]

on the line before the line perl complains about, and then try to move it (the __END__ line) up one line at a time until perl stops complaining, then down one line again, you have found the first offending line.

The line

my @sortkeys = sort {$tags->{count}<=> $tags->{$a}->{$count}} keys %{$
+mytags::tags};
[download]

cheers