Programming Tips - Because the undef function in only takes one argument

Date: 2008oct29 Language: perl Q. Because the undef function in only takes one argument to undefine $a $b $c I need to write:
undef $a; undef $b; undef $c;
Is there a more compact way? A. You can do:
$a = $b = $c = undef;