if($area==1){   
$area_in = $calling_number =~ /(9*0*)(\S+)/ && $2 gt $start_nr && $2 lt $end_nr;
$area_reference_in  = \$area_in;
}