for, while, do, if, until, unless all operate on BLOCKS of code. If you come from C you will be safe to assume that you always need  { .... } and you always need ; Anyway the general sysntax is

KEYWORD ( CONDITION )
{  # begining of block of code to exec marked by {

   # stuff you want to do goes in here

}  # end of block of code to exec marked by }
[download]

So in short your code is a syntax error(s). Your indentation is also shot. It should look like:

if ( $some_condition ) {
    # some_condition is true
    while( @something && @something_else ) {
        shift @something;
        pop @something_else;
    }
}
else {
    print "Some condition is false!\n";
}
[download]

Code like my second example will compile and is easy to read. Your insistence that nothing has changed means either it never worked, someone rediefined the perl languague while we were not looking or you have changed stuff.

It looks to me as if you are trying to maintain a piece of code written by someone else. I would suggest for a start you google for perltidy and install it, then run it on your code to clean the indentation into something reasonable. That will make your life a lot easier.

it makes no sense. It is wrong.

As to see what makes sense:
scalar(@ra)   counts the elements of array @ra.
while ( scalar( @ra ) )   does a while condition around the counting. In this case, you would normally just leave out the counting and write   while ( @ra )
Anyway, there needs to be a { } block as to which the while condition belongs. It is missing, that's an error I can't make any sense of.

Sören

You wouldn't be leaving out the counting, you'd be leaving out the redundancy of providing scalar context where while() already provides one.

---

The PerlMonk tr/// Advocate