sub foo1 {
    my (undef, $d, undef, $f) = @_;
    return $d * $f;
}