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