my $hash = $dom->attr;

say $_ for keys $hash->%*; # for Perl since 5.36
say $_ for keys %$hash; # for all versions of Perl