use 5.010;

my $ref = 7;

if ( $ref ~~ [ 1 .. 8 ] ) {
    ...
}