$cmd = "ssh $id '. ~/q; \$Q/AgnNniGatewayList4-4.X -date $end_date' 2>/dev/null |"; open (input , $cmd); #print "$cmd\n"; while ($INPUT_LINE = ) { chomp($INPUT_LINE); ($dat{sum(PvcCount)}, $dat{sum(LCir)}, $dat{sum(RCir)}) = split(/ /, $INPUT_LINE); $KEY = $EquipName . "." . $slot . "." . $port; $sum(PvcCount){$KEY} = $dat2{sum(PvcCount)}; $sum(LCir){$KEY} = $dat2{sum(LCir)}; $sum(RCir){$KEY} = $dat2{sum(RCir)};