@array=(1,2,3,4,5,6,7,8,9);
while($index < $#array+1){      
        $last=pop(@array);
        print "$last\n";
        $index++;
        }