san francisco; oakland; new york city; boston;
miami; detroit;

##</code><code>##

my $filename = 'myname.txt';
my $ct = 0;

open FILE, $filename || "$!";

while(<FILE>)
{
    chomp;
    my @arr = split /;/, $_;
    $ct++
   
}
print $ct;
close FILE;