c:\@Work\Perl\monks\perlDevsWorld>perl select_1.pl
1: Recturing Svc
2: Finance
9: Payments
19: Mobile
29: Bankers
Please choose a number from the list above: 3
'3' is not on the list. Please choose again.
Please choose a number from the list above: xx
'xx' is not on the list. Please choose again.
Please choose a number from the list above: 9
You chose 9: 'Payments'