sub foo {
   my ($a, undef, $b) = @_;
   $_[1] = $a * $b;
}

my $c;
foo(7,$c,8);
print $c, "\n"; # 56