1: $| = 1; 2: print "first=", $|, " second=", $|--, "\n";