Well, umm... how are you translating the *other* parts to Perl? :) Assuming that dom is an array of some sort of appropriate objects/references:

    foreach my $user (@dom) {
        print $user->{name};
    }
[download]