Your extra parens don't do anything (as far as preserving structure) and you wind up with everything flattened out in one big array. You need a list of arrayrefs to initialize your array in order to keep your sub-lists distinct. See perllol and perldsc as well as perlreftut if you need the basics on references.

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