@cities = (qw(London Oslo Paris Amsterdam Berlin ));
@visited = (qw(Berlin Oslo));
    
say "Still need to visit:",
   grep { ! ({ $_, 0 } ~~ @visited) } @cities;