I have trouble believing that this runs:

($pdbid,$from,$to,$chainid_=split(/-/,$value);

Your question looks familiar. Were the earlier responses helpful? What's changed in the code since then?