use strict;
use warnings;

for (qw(1 5 10 a 4)) {
    warn "$_ is not an int\n" unless $_ =~ /\d/;
    warn "$_ is out of range\n" unless $_ >= 1 && $_ <= 7;
}