# Array to be processed: @arr
while(defined( ( my ($x,$y) = (shift(@arr), shift(@arr)) )[0])){
 ....
}