找不到错误了???

fcl21721

my @aCity = @{$rhCity->{$rNum}}; 改为 my @aCity = $rhCity->{$rNum} ? @{$rhCity->{$rNum}});
my @aCom = @{$rhCom->{$cNum}};改为my @aCom = $rhCom->{$cNum} ? @{$rhCom->{$cNum}}: ();

类似于
my $aa = undef;
print @$aa;