sub record{
        ($value, $max, $min)=@_;
        if($value>=$min && $value<=$max){
                return{                     #returning an anonymous hash
                        value=>$value,
                        max  =>$max,
                        min  =>$min,
                        };
                }else{
                        return;
                        }
        }
        
$myrecord=record(100,1000,10);
print $myrecord->{max};