Something like the following?

while ( my ($index, $form_obj) = each @forms) {
    print join ' ', "[F$index] :", keys %{ $form_obj->getElementsByTag
+Name('input') }, "\n";
}
[download]

I did not find it in the documentation, but by trial and error. But maybe I do not know where to look.