The problem is that the optimiser will see:

($a, $b) = split /:/
[download]

And know that things can go faster by turning that into:

($a, $b) = split /:/, $_, 3
[download]

thus you actually should write:

(my ($a, $b) = split /:/, $_, 5) == 4 or next;
[download]