print "\nHere is a list to select from:\n";
print "A. Set input filename\n";
...

##</code><code>##

print END;
This is
text that
only needs one print
END

##</code><code>##

chomp ( $selec = <STDIN> );

##</code><code>##

$selec =~ s/[a-z]/[A-Z]/;

##</code><code>##

$selec =~ tr/a-z/A-Z/;

##</code><code>##

$selec = uc($selec);

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my ( $last, $first, $age, $sex, $height, $weight, $comment ) = split (/,/);

##</code><code>##

$age[$i++] ={last=>$last,first=>$first,age=>$age,sex=>$sex,height=>$height,weight=>$weight,comment=>$comment}

##</code><code>##

print "First last=$age[0]{last}\n";