!/usr/bin/perl
use strict;
use warnings;

sub getNum
{
    my $in;
    while ( (print "Enter 1..5: "), $in = <STDIN>,
            $in !~ /^\s*[12345]\s*$/)
    {
        print "Illegal entry, Try Again!\n";
    }
    $in +=0;             # or $in =~ s/^\s*|\s*$//g;          
    return $in;
}

print getNum(),"\n";

sub getNumv2
{
    my @nums = @_;
    my $in;
    while ( (print "Enter @nums: "), $in = <STDIN>,
            $in !~ /^\s*[@nums]\s*$/ or $in =~ /^\s*$/) # no blanks
    {
        print "Illegal entry, Try Again!\n";
    }
    $in +=0;             # or $in =~ s/^\s*|\s*$//g;          
    return $in;
}

print getNumv2(3,4,8,9);