new_packages($fcount,\%new_db);

sub new_packages {
    my %packages = %{$_[1]};
...