for (@reportnL[0..4]) {
  print "$_\n";
}
[download]

Your use of an array slice here seems a little unusual, not incorrect but not the way I suspect most would approach the task. I would perhaps do

for ( 0 .. 4 )
{
    print qq{$reportnL[$_]\n};
}
[download]

or, more probably

print qq{$reportnL[$_]\n} for 0 .. 4;
[download]

I hope this is of interest.

Cheers,

JohnGG