#! perl -slw
use strict;

for( 
    ['a', 'b'], 
    [1, 2], 
    [0, 1], 
    ['a', 'b'], 
    [undef, undef], 
    [1, undef], 
    [undef, 1], 
    [ ]                 #Intentionally empty.
) {
	my($a,$b);
	(($a, $b) = ( $_->[0], $_->[1] ))
		|| warn "I would die when \$a=$a and \$b=$b\n";
}