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