@array = (1,2,3,4,5,6,7,8,9,0)
$n = 0;

while(defined($array[$n]))
{
    print "$array[$n]\n";
$n++;
}