Perl5

Подскажите пожалуйста. Дан массив в диапазоне от 10 … 99, как вводить с клавиатуры только те числа, которые есть в массиве?

Или может есть функция ограничения ввода чисел?

А сеть возможность запретить STDIN?