Your top seems to be 6 lines long. The subsequent number of lines seems to be determined by @reports. Thus if you put $= = 6 + @reports + 2; (extra 2 for good luck) after your select, everything should print as expected. For more information on $= (format lines per page variable) check out perldoc perlvar.

Hope this helps.

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1