my @sites=( ("50049", "city1", "url1"),
            ("52556", "city2", "url2"),
            ("50219", "city3", "url3") )
foreach (my $zip, my $name, $my $url) { ... }