Ich habe bisher nur begrenzt Shell-Programmierung gemacht und habe bei Perl so meine Probleme.

Shell:
select eingabe in A B C D ...
do
case "$eingabe" in
A) echo "xxxxx"
...