my $rboc    = "SA";
my $telco   = "0009";
$HoA{$rboc}{$telco} ++;