my ($fcount, %packages) = @_;