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