my $myCities = "Baltimore:Chicago:Los Angeles:New York:San Diego:";
my @myCities = split(':', $myCities);


print "Please pick one of the following cities by entering any portion of the beginning of the city name:(Baltimore Chicago Los Angeles New York San Diego)\n";
chomp (my $input_city = <STDIN> );

       foreach $city (@myCities) {
               if ( $input_city == $myCities )  {
                     #exists;
               } else {
                       print "I'm sorry,we no longer tour LA, please try again.\n";
               }
       }