@array = qw(one two three four);
for($index=0;$index<=$#array;$index++){
     print $array[$index],"\n";
     }