sub portfolio_value { my ($portfolio, $ticker) = @_; my $total_value = 0; $total_value += $$portfolio{$_} * $$ticker{$_}{price} for keys %$portfolio; return $total_value; }