Select Code to Download

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

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

chomp ( $selec = <STDIN> );

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

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

$selec = uc($selec);

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

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

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

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

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