for(my $i = 0; $i < scalar @array && $i < 10; $i++) {
	print $array[$i] . "\n";
}