my $count = 0;

while( <$fh> )
    {
    $count += my @cities = split /;/;
    }