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