Although entirely unrelated to your posted problem, I'd like to point out that you aren't actually checking the return value of your open call like you may think you are. The '||' operator has higher precedence than the comma so:

open SSG, "<ADRX.ssg" || die "can\'t open ADRX.ssg";

# is the equivalent of saying:

open(SSG, ("<ADRX.ssg" || die "can\'t open ADRX.ssg"));
[download]

Either use the lower precedence or operator, or use parentheses appropriately:

open(SSG, "<ADRX.ssg") || die "can\'t open ADRX.ssg";

open SSG, "<ADRX.ssg" or die "can\'t open ADRX.ssg";
[download]