my @zips=("52544", "52557", "50428", "50219");
foreach $zip (@zips) { ... }
 
##</code><code>##

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