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