while($index < $#array+1){      
        $last=pop(@array);