Select Code to Download

#!/usr/bin/env perl

...
for my $zip (keys %site_info) {
    printf $fmt, $zip, @{$site_info{$zip}}{qw{city url}};
}

ZIP: 50219
        City: city2
...
ZIP: 50049
        City: city1
        URL: url1