#!/usr/local/bin/perl

use warnings;
use strict;

sub in {
    my  ( $x, @args ) = @_;
    foreach ( @args ) { 
        return 1 if $_ == $x;
    }
    return 0;
}

print ( "\nyes: ", in (10, 8..12) );
print ( "\nno: ",  in (10, 11..120) )