if ( $selec eq 'A' ) {
        namefile();
        Menu ();
        }
...