Select Code to Download

@assign = (
    {
...
        url => "http://www.perlmonks.org/"
    }
);

for my $site (@assign) {
    print "Site:\n";
...
        print "\t", $field, " = ", $site->{$field}, "\n";
    }
}

print "Title: ", $assign[0]{title}, "\n";