A small nit: Your use of $_ in the final loop is a potential source of bugs, since you don't initialize it to a known value, plus $_ would be the loop variable if you didn't use a lexical variable. Better to just add an extra counter variable.