in range function in perl

inrange.perl

#
# Hello World Program in Perl
#
print "\nHello World!\n";


sub inRange
{
    (my $var,my @rng)=@_;
    
    my $res = "true";
    
    if ($rng[0]>=0 && $var<=$rng[0]) {
        $res = "false";    
    }
    if ($rng[1]>=0 && $var>=$rng[1]) {
        $res = "false";    
    }
    
    return $res;
}

my $var = 10;
my @rng = (1,20);