my @sites = ( [ "blah", "city", "url1" ], ... );
for my $row (@sites) {
  my( $zip, $name, $url ) = @{ $row };
  ...;
}