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