for $formh(@forms){@keys=values %$formh;
                        for $name(@keys){
                        process($name);
                        print "--$name--\n";


}                                                                                sub process{$return=shift;return $return;}