my $f = defined $_[0] ? shift : return;