in reply to undef a List of Variables

$a = 1;
$b = 2;
$b > $a and ($a, $b) = undef;

[download]

In Section Seekers of Perl Wisdom