for (my $i = 0; $i < @ARRAY; $i++)
{
  if ($i + 3 < @ARRAY) { print "\n$ARRAY[$i + 3]"; }
}