while (<DATA>){my($s,$c,$dl)=split(':');
$sd=~s/^\s+|\s+$//;@sd=split(' ',$dl);
@sd=sort{$a<=>$b}@sd;$r{$s}{$c}{'h'}=pop@sd;
$r{$s}{$c}{'l'}=shift@sd}

__DATA__
CA:San Francico: 56 45 53 35 42 24 89 67 85 45 65 45 87 64
CA:Freemont: 87 78 67 65 98 78 78 43 98 45 82 48 78 47
Texas:Houston: 98 67 101 78 92 56 89 57 83 45 76 46 76 29
Texas:Dallas: 78 45 79 54 89 56 82 54 76 46 73 45 65 56