Win8 Strawberry 5.8.9.5 (32)  Thu 07/29/2021  7:25:26
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

my @sites = (
    { 'zip' => '50049', 'city' => 'city1', 'url' => 'url1', },
    { 'zip' => '52556', 'city' => 'city2', 'url' => 'url2', },
    { 'zip' => '50219', 'city' => 'city3', 'url' => 'url3', },
    );

for my $hr_site (@sites) {

    my ($url, $zip, $city) = @{ $hr_site }{ qw(url zip city) };
    print "doing something in $city $zip with $url \n";

    print "also available directly: $hr_site->{'url'} \n\n";

    }

^Z
doing something in city1 50049 with url1
also available directly: url1

doing something in city2 52556 with url2
also available directly: url2

doing something in city3 50219 with url3
also available directly: url3