for (my $i=0; $i < $#array; $i++) {

	#print every third line
	print "$array[$i]\n" if (($i % 3)==0);
	
	#or even more consise
	print "$array[$i]\n" unless ($i%3);
}