for my $city (@cities) {
  my $keyword = shift @keywords;
  my $proxy   = shift @proxies; 
  .
  .