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