%func = (A => \&namefile, B=> \&openfile, ...)
...
$func{$selec}->();
Menu();