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