Thanks, I like this top-down approach! Somehow, it didn't come to me in the first place.

Btw, I managed to squeeze some more time from your second variant by replacing @s = () with @s = (0) x 100. Benefit from pre-allocating memory for all elements, I suppose.