@assign = (
    {
        title => "Slashdot",
        category => "Tech News",
        blurb => "News for nerds. Stuff that matters.",
        url => "http://www.slashdot.org/"
    },
    {
        title => "Perl Monks",
        category => "Perl",
        blurb => "Perl advice.",
        url => "http://www.perlmonks.org/"
    }
);

##</code><code>##

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

##</code><code>##

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