Select Code to Download

my( $a, $b ) = ( shift @as, shift @bs );

while( ($x) = shift @a ) {    # Broken
while(  $x  = shift @a ) {    # Fixed
...

my( $a, $b ) = ( shift @as, shift @bs );
my( $a, $b ) = ( scalar shift @as, scalar shift @bs );