#### my $alphcity = substr($city, 0, 1);