I managed to get top to work using the b argument. It's certainly not a Perl issue but it was quite baffling getting it to work properly. Thank you all for leading me in the right direction.