($from, $to) = ();
undef $_ for $from, $to;
map undef $_, $from, $to;
$from = $to = undef;