my @array= ( 1 .. 9 );
my $index;
while( $index < $#array+1 ) {
    my $last = pop(@array);
    print "$index < ", $#array+1, "\n";
    $index++;
}