my $it;
$it = shift;
defined $it or $it = $foo;