sub foo ($\$$) {
   my ($a, $b, $c) = @_;
   $$b = $a * $c;
}
foo(7,$b,8);
print $b, "\n";